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ABSTRACT 

A computer simulation model for a multiprocessor computer is devel^ 
oped that is useful for studying the problem of matching a multiprocessor's 
memory space, memory bandwidth and numbers and speeds of processors with 
aggregate job set characteristics. The model assumes an input work load 
of a set of recurrent jobs. A minimal amount of knowledge of individual 
job requirements for bandwidth is assumed. The model includes a feed- 
back scheduler/ allocator which attempts to improve system performance 
through higher memory bandwidth utilization by matching individual job 
requirements for space and bandwidth with space availability and esti- 
mates of bandwidth availability at the times of memory allocation. This 
matching factor is then fed back into the job scheduler via internal job 
priority. A nonfeedback version is made available for comparison purposes 
and an independent analysis is made to determine maximum improvements. 

The simulation model includes provisions for specifying precedence 

relations among the jobs in a job set. Provisions for specifying precedence 
execution of TMR (Triple Modular Redundant and SIMPLEX (Non Redundant) jobs. 
Some typical problems are studied by means of the simulator. 
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The amount of slowdown of a multiprocessor due to memory access 
conflict is determined by analytical means, A hardware processor to 
memory interconnection and access conflict resolution scheme is developed 
for a priority driven multiprocessor. 

Doc\jmentation of the computer simulation model is Included. 
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X. INTRODUCTION 


A multiprocessor computer system is a computer system in which 
two or more hardware processing units simultaneously share a common 
memory, A generalized block diagram of the hardware configuration 
of a multiprocessor is shown in Fig, 1-1. Traditionally the hardware 
cost of the computer memory has represented the lion’s share of the 
total hardware cost of the system. This high cost of the memory has 
influenced the architecture of the general purpose computer system 
more than any other single factor. One exemplification of this heavy 
influence is the hierarchy of memory found in most members of past 
and present generations of general purpose computer systems. 

The desire to make full utilization of the relatively high cost 
memory of a computer system foreshadowed the arrival of the multi- 
processor system. Thus, it is not surprising that this variant of 
computer architecture Is almost as old as the concept of the stored 
program computer itself [7], [8], [9], [10]. However, cost of the 
computer system’s memory was and is still not the only impetus for 
studying the practical implications of such systems. The multiprocessor 
system arises quite naturally in the realm of high reliability and 
high availability systems. The multiprocessor system also provides 
an ideal vehicle for outward expansion and for tailoring for specific 
applications . 
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Notwithstanding this considerable motivation for the develop- 
ment of multiprocessor systems, there have in reality been a large 
number of discussions in the relevant literature about various aspects 
of multiprocessors but very few physical Implementations, at least not 
in view of the tremendous growth of electronic digital computer systems 
during the past twenty years. This striking lack of prolification of 
multiprocessor systems may be attributed in part to the fact that 
technological improvements in speed, cost, and reliability of the 
basic hardware components have kept pace with the vast majority of 

application requirements and it is only from a handful of potential 

( 

applications such as space exploration, weather forecasting, airport 
aircraft control and missile defense systems that requirements of 
extreme reliability, availability and/or processing speed have exceeded 
that obtainable from conventional computer configurations. The Inherent 
modularity of the system shown in Fig. 1-1 allows great flexibility 
in expanding a given system to meet increased needs, in tailoring for 
specific applications and in obtaining highly reliable systems. Another 
advantageous feature of this configuration is that existing applications 
software written for conventional uniprocessor computers may be run on 
a machine of this configuration without alteration. No intrinsic 
penalty in overall system efficiency or system reliability is incurred by 
this non-alteration. Thus the huge investment already made in high level 
applications programming is not wasted when going from a conventional 
uniprocessor system to a multiprocessor of the form shown in Fig. 1-1, 
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Difficulties with the Multiprocessor 

The realization, of the advantages offered by the multiprocessor 
configuration is contingent upon overcoming, among other things, 
certain operational difficulties associated with its configuration. 

Very broadly, these difficulties revolve around recognition and effec- 
tive exploitation of parallelisms in all phases of the computer opera- 
tion. 

One group of these problems is concerned with scheduling and 
allocation of the system’s resources to jobs in the system’s input 
queue. In accomplishing these tasks compromises must be made between 
considerations of overall system efficiency and service to individual 
jobs. In this regard, the system's supervisory programs tend to become 
quite complex due to the large number of contingencies that may arise. 

The interaction between the system’s hardware processors arising 
from their simultaneous use of the main memory’s bandwidth is also of 
central importance in the multiprocessor system. In a multiprocessor 
system several hardware processors are simultaneously using the common 
storage area and access contention problems arise. This tends to 
negate potential speed increases that the multiprocessor configuration 
offers. Thus the hardware interconnection between the memory and the 
processors can become a considerable problem due to the required com- 
plexity of the controlling mechanism and the speed at which interconnec- 
tions must be made when several processors are simultaneously using 
the memory. 
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The supervisory system programs and the space that they occupy 
or hardware needed for their Implementation represents overhead of the 
system and tends to nullify some of the advantages promised by the 
multiprocessor configuration. Thus only the simplest of algorithms 
Should be contemplated for these applications. Indeed, the speed 
requirements of the processor to memory Interconnection problem are 
so severe that hardware implementation appears to be the only reason- 
able approach. 

Purpose of This Paper 

It is the purpose of this paper to investigate some of the 
problems associated with the multiprocessor such as job scheduling, 
memory allocation, memory access conflict under both non-bandwidth 
limiting and bandwidth limiting (l.e. localized bandwidth limiting 
and mismatch) and the processor to memory module interconnection 
problem. In view of the importance of the modular multiprocessor to 
high reliability systems, problems concerned with use of a multipro- 
cessor as a TMR processor will also be investigated^ Some of these 
problems are of a nature that analytical techniques are invalid due to 
the gross simplifications required to make them manageable. These 
simplifications cause the results to be of questionable value when 
applied to practical situations of much broader scope than the analyt- 
ical model. Thus, for some of these problems, a computer simulation 
model is the primary instrument through which these Investigations are 
carried out. Actually the development of such a model consumes a 
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considerable portion of the paper. This development provides insight 
into specific problem areas as well as an overview of how the inter- 
actions of many of the specific problems affect the complete system. 

The model then becomes more than an intermediary to some specific end. 
For convenience, and due to the fact that it is believed that most 
potential application areas for the modular multiprocessor lie in 
this direction, the model assumes that the input job stream is like 
that of a real time centralized process control computer or a central- 
ized space borne computer, i.e., the input job stream consists of a 
fixed set of recurrent jobs of either the periodic or aperiodic type. 
Thus a minimal amount of knowledge concerning bandwidth requirements of 
each job may be assumed. 

Other Studies Related to the Topic of this Paper 

The following topics are a small sample of those that have been 
and are currently being discussed in the literature. Some of the papers 
from which the topics were extracted had a considerable influence on 
the direction taken in this paper. Others tend to point out alternative 
approaches or place different emphasis on those areas of general agree- 
ment and thereby help to put the present work in proper perspective. 

The topics are subdivided into the following categories: Problem 

areas common to parallel processing and parallel processors, high and 
low level scheduling, task graphs, criterion for parallel processing, 
parallelism recognition, and dynamic memory allocation. 
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Problem Area Survey 

Lehman [22] has summarized a number of broad problem areas that 
are common to parallel processing and parallel processors in general. 
Both hardware and software problems were surveyed. The software 
problems include requirements of high level languages in the recogni- 
tion, and/or provision for expression, of. the parallel structure of 
computer programs at this level as well as the additional burdens 
placed on the executive portion of the system in the areas of communica- 
tion and interaction between the parallel segments of the program 
ensuing from effective exploitation of the recognized or expressed 
parallelisms. Hardware problems surveyed include the processor to 
memory interconnection problem. The paper focuses on bringing to 
light the vast potential that parallel processing systems have in 
influencing the future development of the field of computing that is 
a result primarily of their amenability to improvements in availability, 
reliability, efficiency, expandability and performance to cost ratio. 

The results of simulation in a multiprocessor environment of certain 
applied mathematical problems were included. The paper has an extensive 
bibliography that traces the inception and solution development of 
many of the problem areas up to the point in time of the paper. 

High and Low Level Scheduling 

Lorin [15] has classified the scheduling function into two 
major parts: High level scheduling and low level scheduling. 

Operating systems that are high level dominated have traditionally 
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been called batch mode or service oriented. Those that are predom- 
inantly low level are real time, time shared, or resource oriented. 

The primary function of the high level scheduler is to act as 
an interface between the operating system and its operational environ- 
ment. It does this by selecting from the list of jobs that have entered 
the system and are candidates for activation the next job(s) to be 
passed to the active list. As each job enters the system a profile 
of its major attributes such as priority, urgency, initiation time, 
deadline and precedence relations are stored in a table. It is primar- 
ily on the basis of these parameters that the selection is made. Other 
inputs to the high level scheduler Include initiation signals which 
are triggered by a time clock or events such as new job arrivals, job 
completions, I/O completions, release of key resources, and system 
error. The output of the high level scheduler consists of a partially 
ordered list in which are reflected the demands placed on the system 
in absolute and relative time by the input job stream. 

The function of the low level scheduler is to dynamically allocate 
time resources to jobs in the active list. The low level scheduler 
insures that jobs in the active list receive service at rates consistent 
with assigned external priorities and that the available resources are 
used in a semi-optimum fashion. In the performance of its function the 
low level scheduler has a central problem; task switching. In general 
task switching occurs when the current task in control of the CPU is 
unable to continue due to a need for I/O service or service from some 
other asynchronous task. Another but somewhat more subtle difficulty 
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with which the low level scheduler must contend is the fact that there 
are incompat abilities between resource balance and external priority. 

A basic concept for resource allocation is to grant high priority 
to I/O bound jobs so that channel and peripheral device utilization 
is high and assign lower priority to CPU bound jobs so that the CPU 
bound jobs tend to run during the interrupted times of the I/O bound 
jobs. This concept is the thesis of multiprogramming. Even when 
priority is used in a resource balancing scheme it is usually only 
responsive to an average of the I/O or CPU boundedness of the job and 
is not responsive to run to run variations or to the fluctuations 
occurring during the course of a particular run. 

Task Graphs 

Schedules for jobs based on task or computation graphs for 
execution by multiprocessors have been studied by Hu [16] and by 
Ramamourthy, Chandy and Gonzalez [17], [18]. A task graph or compu- 
tation graph is a partially specified directed graph whose nodes 
denote some entity of processing to be done and whose arrows are used 
to represent precedence relations among the entities. The processing 
time and memory space requirement for each node may also be shown on 
the graph. Schedules based on these graphs determine the sequence 
in which to process the various tasks of the graph in order to complete 
the graph in the minimum amount of time as well as the minimum number 
of processors required, or given that n processors are available 
a schedule is determined so that the graph is executed in the minimum 
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amount of time. Generally such schedules do not allow preempting of 
tasks nor do they consider memory contention problems. Muntz and 
Coffman [19] consider the two processor case in which preempting 
is taken into consideration, Graham [20] and Manacher [21] have 
studied an aspect of schedules based on task graphs known as Richards’ 
anomalies which were first noticed by P. Richards in 1960. Briefly, 
Richards noticed that a slight decrease in the execution time of 
certain tasks within a task graph could cause considerable increases 
in the overall execution time of the task graph. 

Criterion for Parallel Processing 

Bernstein [23] has studied a method for determining whether two 
segments of a program are executable in parallel by observing during 
the execution of each segment how memory locations used by each segment 
are treated. In this regard four cases were identified. The four 
cases are as follows: 

(1) The location is only fetched during execution of segment sj^. 

(2) The location is only stored during execution of segment Si* 

(3) The first operation on this location is a fetch and subsequent 
operations of segment s^ stores into this location. 

(4) The first operation involving this location is a store and 
subsequent operations of si fetches this location. 

The parallel processability of the various segments of the program is 

determined from logical unions and intersections of the above four 

classes of memory locations for each program segment si« 
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Parallelism Recognition 

Reigel [27J has studied parallelism In computing systems and 
has identified six levels at which parallelisms capable of being 
exploited occurs. The six levels identified are as follows; 

(1) Between independent jobs 

(2) Between groups of statements (tasks) within a job 

(3) Between statements 

(A) Within expressions 

(5) At machine language instruction interpretation level 

(6) At machine bit level 

Parallelisms between independent jobs and between tasks within 
a job are exploitable by multiprocessors having only a small number 
of processing tmits as well as parallel processing systems having a 
large number of processing units. A task graph may be used to provide 
the parallel processing system with sufficient information for efficient 
exploitation at the task level but some preprocessing is required to 
obtain the task graph. Parallelisms between statements are more readily 
exploitable by array processors. An example of this level of parallel- 
ism is contained in the two statements x = A + C * D and y = B + C * D. 

Another example is each statement in the range of a DO loop. Parallel- 

isms within expressions are readily exploited by pipe line processors. 
For example the expression A + B + C * D would require 2 add periods 

and 1 multiply period on a serial processor but it may be accom- 

plished in the time required for one add period plus the larger of an 
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add or a multiply period if an adder and a multiplier are simulta- 
neously available. There is the possibility of exploiting parallel- 
isms at the machine Instruction interpretation level on any type 
processor since all the phases of instruction fetch, decoding and 
execution are not strictly sequential, especially with microprogrammed 
processors. Parallelism at the machine bit level is also exploitable 
with any type processor and was probably the first to be utilized. 

These parallelisms include widths of data paths and registers in the 
machine. All these levels of parallelisms are explored in considerable 
detail by Lorin [ 15 ]. 

Dynamic Memory Allocation 

Randell and Kuehner [24] have associated four aspects of dynamic 
memory allocation that, in some manner, are descriptive of the capa- 
bilities and fundamentals of present hardware oriented dynamic allo- 
cators with the concepts of name space, predictive information, 
artificial contiguity, and uniformity of units of storage allocation. 

Name space refers to a set of names that a program can use to 
refer to items of information. The simplest name space consists of 
the set of integers 0, 1, 2, ...., n used as absolute addresses in 
the main memory. The name space can also be divided into a number 
of segments with each segment composed of a linear name space. There 
is no implied ordering of the segment names although this may be done 
in which case the segment name space is said to be linearly segmented. 
If there is no ordering among the segment names the segment name space 
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is said to be symbolically segmented. The sizes of the various 
segments need not be the same nor does the si;?e of a particular 
segment necessarily remain constant during the execution period of 
some program having space in the segment. Thus the segmented name 
space differs from the generalized notion of a two-dimensional matrix, 
although it is sometimes referred to as a two-dimensional name space. 
The major disadvantage of the segmented name space is the complexity 
of actually addressing the physical storage linearly. Its major 
advantages are its added utility and convenience in dynamically 
allocating storage, movement of information between levels of storage, 
protection and sharing among programs, error detection in addressing, 
and in relieving the programmer of the responsibility of name assign- 
ment . 

Predictive information refers to methods for predicting the 
probable use of storage over a relatively short period of time in the 
near future. These predictions may be explicitly incorporated by the 
programmer, discovered by a compiler, or made by observations by the 
system of previous utilizations. This information may be used to 
determine when to bring new blocks of storage into main memory and 
which blocks already in the main memory have the lowest probability of 
being referred to in the near future and thus may be replaced. 

Artificial contiguity refers to the concept of mapping a contig- 
uous name space into a non-contiguous address space. This is accom- 
plished by providing an automatic mapping mechanism between points in 
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programs at which names are referred to and the system’s hardware 
for accessing a corresponding absolute address* The mapping scheme 
is invisible to the program that refers to the name. The most frequent 
use for such schemes is to disguise or artificially extend the apparent 
size of the system’s physical main memory space. Systems employing 
this technique are often referred to as virtual storage systems. The 
major disadvantages of the use of a mapping scheme for provision of 
artificial contiguity are its cost and reduction of addressing speed. 

A dynamic memory allocation scheme may allocate space in fixed 
size blocks (a single size or several sizes) or an attempt may be 
made to make the size of allocation just equal to the size needed by 
the information. In the latter case the memory space tends to become 
fragmented into many small pieces with an attendant high overhead for 
linking them together or a lot of shuffling of blocks of information 
so as to consolidate the small blocks back into larger more useful 
blocks. If this linking or relocating of blocks of information is not 
done then the net result may be that a portion of main memory may be 
unusable for a certain percentage of time. The extent of this unus- 
ability depends, to a considerable degree, on the ratio of the average 
block size to that of the total memory size. The technique of 
dynamically allocating memory only in fixed size blocks is exemplified 
hy paging systems in which the program usable portion of main memory is 
broken up into page frames all of the same size. Hardware then auto- 
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matically performs placement of pages as they are referenced by the 
program during execution. This form of dynamic memory allocation has 
been discussed by Denning [25]. Various replacement algorithms have 
been studied by several people including Belady [26]. In such systems 
the actual placement of blocks is made trivial once the replacement 
algorithm has decided which page to push out if this is necessary. 

The actual fragmentation of memory does not occur with paging systems, 
but the effect of fragmentation (i.e. time--space product waste) does 
occur since a given program may be occupying many pages in memory while 
waiting on the transfer of a page following a page fault. Fragmentation 
can also occur within pages since many page frames may be only partially 
used. 





II* A DESCRIPTION OF THE MODEL 


Cursory Discussion . 

The computer program of the model generates, schedules , allocates 
memory to, assigns processors to, and executes sets of jobs whose 
parameters are controlled by data and commands from the input stream* 

It also prints out statistics concerning service to individual jobs 
and utilization of all system resources* The execution proceeds in 
a discrete manner with some assumed number of basic clock periods per 
simulation step* This number is a variable of the system* 

\ 

Two types of memory allocators are used* One is a so called 
^optimum-fit’ algorithm [11] in which memory allocations are made on the 
basis of the number of available blocks and the requirements of the 
job* The second allocator is an adaptation of the ’best-fit’ algorithm 
[12] but also utilizes information concerning the bandwidth of the 
available blocks of memory* The goodness of fit in bandwidth and space 
is fed back into the job scheduler for determination of priority with 
this second method* 

Under both types of memory allocators an allocation is assumed 
to be in one contiguous block- Allocations for TMR jobs are made in 
triplicate from three sets of disjoint memory modules* Although the 
memory consists of M modules all of the same size and speed, it is 
viewed as one contiguous block in so far as the allocation routines are 
concerned. 
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The system utilizes a form of community multiprogramming in 
which both TKR as well as SIMPLEX jobs may be in progress simultaneously. 
The entire system is priority driven. A schedule in this system does 
not consist of an explicit assignment of resources for predetermined 
time intervals to particular jobs, but rather, consists of the more 
flexible priority ordering of jobs based on terms concerned with exter- 
nal priority, amount of time spent in the job queue, nearness to some 
target time, and memory preference. Interrupts for I/O operations 
are included in the model. Job execution proceeds in essentially 
two phases as follows ; 

Phase 1 — A number of memory access requests is generated for 
each active job from a normal distribution with mean and standard 
deviation determined by the speed of the processor and some 
assumed average number of processor cycle periods per memory 
access which is based on the particular characteristics of the 
job. 

Phase 2 — Some portion of the number of memory accesses requested 
by each job is granted to each job. This portion is based on 
the number available from the job's memory space, the priority 
of the job relative to that of any other active jobs having 
space in the same modules and the number of memory accesses 
actually requested by the job. 

A job is considered to be active at a particular simulation step if it 
has been scheduled and has all the resources that it needs for processing 
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at that particular step. Scheduling is done in small batches and is 
triggered by comparing short term system utilization averages with 
long term utilization averages as well as considerations of instan- 
taneous system and job queue status. The input job stream is assumed 
to be like that of a centralized process control computer or a central- 
ized space borne computer, i.e. the jobs consist of a fixed set (fixed 
for the duration of a particular run) of which some are executed on 
a periodic basis while others are executed aperiodically. The system 
has provisions for handling precedence relations among the jobs in the 
input job set. An estimate of the bandwidth requirements for each job 
is assumed to be available for use with the feedback scheduler/allo- 
cator. 

Block Diagram Description 

A simplified block diagram of the model is shown in Pig. 2-1. 

The main program accepts commands and data from the input stream. At 
the start of a sequence of simulation runs it invokes a set of routines 
labeled Job Generator which generates a set of jobs with characteristics 
specified by the data from the input stream and places these jobs into 
a bulk storage table. Upon command from the input stream a specified 
selection of these jobs is loaded into the job status and control table. 
The main program then calls the High Level Scheduler which performs 
a limited amount of pre-processing on the set of jobs in the job status 
and control table. The High Level Scheduler then calls either the 
Future Events Chain Manager or the Current Events Chain Manager for 
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Fig, 2-1 Siir^jlified Block Diagram of Siravilation Model 
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placement of those jobs for which a target time could be set up during 
the initial pre-processing into either the Future Events Chain or the 
Current Events Array depending on the nearness of this target time to 
the present time. Control is then returned to the Main Program. If 
the non-feedback scheduler/allocator is specified in the input data 
then the Main Program calls the Current Events Chain Manager for 
chaining the jobs in the Current Events Array together according to 
their internal priority. Control is then returned to the Main Program 
where upon the Memory Allocator is called for allocation of main memory 
space to as many of the jobs in the Current Events Chain as is possible. 
Control is then returned to the Main Program. If the feedback 
scheduler/allocator is specified then the main program first calls the 
Memory Allocator for reserving space for as many of the jobs in the 
Current Events Array as possible. It then calls the Current Events Chain 
Manager for chaining together all the jobs in the Current Events Array 
according to their internal priority. In this manner the goodness of 
fit in both space and bandwidth influences the internal priorities of 
the jobs in the Current Events Array which are allocated memory. 

Control is then returned to the Main Program. In either of the above 
cases after memory has been allocated to as many of the jobs in the 
Current Events Array as possible and the jobs have been chained together 
according to priority the main program calls the High Level Scheduler 
for an initial assignment of Processors. After this initial assignment 
of processors the Program Executer is called for one step of execution 
processing for all active jobs. 
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The Program Executer performs an execution processing step by 
generating a number of memory access requests for each active job 
and then granting some portion of this number of requests to each of 
the active jobs. After granting memory accesses the jProgram Executer 
updates the completion counters for each of the active jobs and checks 
for I/O Interrupts and processing completions. If an I/O interrupt 
point has been reached or a job has completed the Program Executer 
calls the Low Level Scheduler for reassignment of processors. Before 
returning to the Main Program the Program Executer updates data arrays 
containing information concerning the utilization of system resources 
for the present step of execution processing and service to individual 
active jobs. After returning to the Main Program following a step of 
execution processing the Main Program checks to see whether a new . 
schedule should be initiated or whether or not the present run has 
been completed. If neither of these events is to occur or has happened 
then ’the simulation clock is advanced by one and the Future Events 
Chain Manager is called to remove any jobs from the Future Events Chain 
whose next event time has been reached. If a new schedule is to be 
initiated then the Memory Allocator and Current Events Chain Manager 
are called to perform the necessary processing. Processing continues 
in this manner with control alternating between the Main Program and 
Program Executer until the run has been completed or until no active 
jobs are in the Current Events Chain. In case the run is not completed 
but no active jobs are in the Current Events Chain the simulation clock 



22 


is advanced to the time of the leading event in the Future Events Chain 
provided such an event exists • 

In case there is no such event in the Future Events Chain the 
simulation run is abnormally terminated and no further runs can be 
initiated* In case a simulation run completes normally the statistics 
for the run are printed and another run may then be initiated by a 
command from the input stream* 

Let us now consider some of the topics that were mentioned or 
implied above in more detail. 

Granularity of Simulation Time 

Each step of simulation corresponds to a large number of CPU 
cycle periods or alternately a smaller number of memory module cycle 
periods. This allows a simulation run to proceed in a reasonable amount 
of real time. However, there are bounds on the amount of granularity 
that can be tolerated if meaningful results are to be obtained. 
Specifically, peak demands on memory access requests tend to become 
filtered by averaging during each simulation step. Thus very little 
slow down of the overall system due to memory access conflict that 
would arise in a real situation due to two or more processors simul^ 
taneously executing programs from a common memory shows up in the 
simulation. Also, bandwidth utilization tends to be higher with the 
simulator than it would be with a real system due to this same cause. 

If I/O interrupts are frequent in each job or if the average number of 
simulation steps per job is small then there tends to be proportionally 
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large amounts of wasted simulation time because the step in which the 
interrupt or completion occurs is on the average only half used by the 
job for which the event occurs • The memory bandwidth that the inter- 
rupted or completing job would have claim to can be redistributed to 
any other active jobs having space in the same modules but processors 
are not reassigned, at least not for further processing, until the end 
of the simulation step. Thus processors assigned to interrupting or 
completing jobs are actually only partially used during the step in 
which the interrupt or completion occurs- 

From the above discussion we may conclude that there are necessary 
constraints on the relationships between the granularity of simulation 
time, mean processing speed of jobs, frequency of interrupts and average 
total number of memory accesses required per job for completion- On the 
one hand the number of memory module cycle periods per simulation 
step should be small in order to more closely approximate a real 
system but on the other hand it should be large in order to keep the 
amount of real processing time within reasonable bounds. Thus the number 
of basic clock periods per simulation step is made a parameter of the 
system. 

The Internal Priority Equation 

The scheduling and allocation of system resources to individual 
jobs is priority oriented. Priority provides a convenient, compact, and 
versatile vehicle for driving the system. It may be used to express 
both the absolute and relative demands placed on the system by the 
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input job stream. The priority equation used by the model has the 
following form: 

INP « MINCMAXPR, Wi*EXP + W2*NDLN + W3*IWAIT + W4*MAPF) 
where INP represents internal priority, MAXPR is the maximum priority 
allowed, EXP is an externally declared priority, NDLN is a measure of 
nearness to some target time or deadline, IWAIT represents the amount 
of time that the job has spent in the ready queue and MAPF is a 
measure of how close the requirements of the job for space and band- 
width match that available from the block from which its main memory 
space was obtained. The variables W2, W3 and W4 are weighting 
factors for their associated terms. The exact meanings of the terms 
NDLN, IWAIT and MAPF are as follows: 


NdLN = MAX 


/ _ 1 present time - target time! \ 

\ ’ ^ estimated minimum processing time / 


IWAIT 


(»> V, * a ^ X) ) if 0 < V 2 ^ 1 ' 

V2 * X if V2 > 1 and X < 1 

V2 * (1 + ‘SX) if V2 > 1 and x > 1 

_ time in ready queue 

where X - processing time 
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MAPF = 


where 


If IFBK 


Max over 
available 
blocks at 
time of 
schedule 


DSM = 


MMS 


DSM * MMSPF 
+ 

MMAPF * DUM 
or MMAPF/DUM 


if 

if 


\li 


DUMil 
DUM>1^ j 


if IFBK = 1 


previously] 
selected 
blocks at 
present 
\ schedule 


BLK SIZE 


estimated available bandwidth of 
space in block occupied by job 
estimated mean bandwidth required by job 


MMS = Main memory space required, 

MMSPF = Memory space preference factor 
MMA-PF = Memory access preference factor 

IFBK are all variables of the system 

From the priority equation we may observe that the scheduler 

utilizing this equation as its activating mechanism may be made to 

take on many forms. For example, if Wj^, W 2 , and are small and W 3 

is large with V 2 > 1 the scheduler tends to operate according to the 

first in first out discipline. If 0 < V 2 < 1 then it works like a last- 

in first-out scheduler. If W^, W^, and are small but W 2 is large 

then the scheduler is similar to a deadline scheduler, etc. 


I/O Interrupt Mechanism 

The I/O interrupt mechanism is facilitated by assigning one of 
a limited number of normalized processing curves to each job at the 
time of job generation. There are no specific requirements for these 
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curves but they should loosely approximately the manner in which 
computer programs tend to operate in regard to the points in the 
program at which the I/O processing occurs and the duration of these 
interrupts. Many computer programs initially read a number of 
variables and arrays into the main memory, perform some operations on 
these variables and arrays, and finally output some data. Although 
no figures are available, it is believed that the Initial read operations 
usually involve a larger number of operations. Thus most of the 
processing curves used by the model assumes on the order of two to four 
times as much I/O processing near the beginning of the curve as near 
the end. The program which calculates the expected minimum processing 
time for each job during the initial preprocessing phase immediately 
before a simulation run assumes that the number of main-memory accesses 
between interrupts is from a normal distribution for both CPU and lOP 
processing. Therefore, closer estimates of the minimum processing time 
can be expected if these numbers of accesses are actually from a normal 
distribution. 

The manner in which these curves are actually used to obtain 
the I/O interrupts is as follows: In the job status table for each 

job is a completion count word and a next interrupt point word. The 
contents of the next interrupt point word are updated with the number of 
memory accesses required before the next interrupt at the beginning of 
program execution and immediately after each interrupt. This is done by 
multiplying the total number of CPU memory accesses or lOP memory 
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accesses, as the case may be^ for the job under consideration by the 
abscissa points of the normalized processing curve at which interrupts 
occur. The smallest such product that is greater than the old next 
interrupt point is the new next interrupt point. The Program Executer 
then compares the completion count with the current next interrupt point 
word after each step of program execution in order to determine when the 
interrupt point has been reached. 

Job Switching 

Multiprogramming is a technique for improving system efficiency 
in which two or more Jobs are concurrently executed, i.e., second job, 
third job, etc., is started before the first job completes. Thus, 
when a job interrupts for I/O processing the CPU may be reassigned to 
some other job, thereby avoiding waste of CPU time. The major purpose 
of the Low Level Scheduler is to manage the system’s processor time 
resources. It does this by job switching in a multiprogramming 
environment. In conjunction with job switching is a preempting scheme 
in which jobs wanting a CPU may preempt lower priority jobs that have a 
CPU. Due to the assumed nature of the bulk storage medium that the 
lOP’s operate with no preempting of IPOs is allowed. The option is also 
available whereby jobs interrupting for I/O processing may voluntarily 
return their CPU(s) to an available pool or retain the CPU(s) during 
the I/O processing depending on their priority and the number of jobs 
in the job queue. The allowed preempting is as follows: 

1. A TMR job may preempt the lowest priority TMR job among 
the three lowest priority jobs of lover priority. 
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2. A TMR job may preempt the three lowest priority SIMPLEX jobs 
of lower priority provided no lower priority TMR job is among 
the three lowest priority, jobs. 

3. A SIMPLEX job may preempt the lowest priority SIMPLEX job 
of lower priority, 

4. A SIMPLEX job may preempt the lowest priority TMR job of lower 
priority provided there is no lower priority SIMPLEX job. 

Upon voluntarily giving up CPU(s) at I/O Interrupt initiation the 
Low Level Scheduler looks for other jobs for reassignment of CPU(sj to. 
The following scheme is in effect. 

Case 1. The interrupting job is TMR. 

All three of the interrupting job’s CPUs are assigned to the 
highest priority TMR job among the three highest priority jobs 
that want CPUs provided such a TMR job exists, otherwise as 
many of the CPUs as possible are assigned to the highest 
priority SIMPLEX jobs that want a CPU. Any remaining unassigned 
CPUs are placed in an idle state. 

Case 2, The interrupting job is SIMPLEX. 

1. The highest priority job that wants a CPU is SIMPLEX. 

The interrupting job is assigned to the highest priority 
job that wants a CPU. 

2, The highest priority job that wants a CPU is TMR. 

The interrupting job's CPU is assigned to this TMR job 
provided there are two other idle CPUs that may also be 
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assigned to this TMR job or there is one Idle CPU and at 
least one simplex job of lower priority that may be 
preempted of its CPU. If there is no idle CPU then two 
lower priority SIMPLEX jobs that may be preempted of their 
CPUs will suffice, otherwise, the interrupting job's CPU 
is assigned to the highest priority SIMPLEX job that 
wants a CPU if one exists. If all the above tests fall 
then the CPU is placed in an idle state. 

A similar scheme is used upon completion of I/O processing in 
which lOPs are to be reassigned except that, as already mentioned, no 
preempting of lOPs is allowed. 

Methods for Triggering Hew Schedules 

The frequency of and points in time at which new schedules are 
initiated is of great importance in regard to system efficiency as well 
as service to individual jobs. If new schedules are too frequent then 
the amount of overhead attributed to schedule processing can become a 
considerable portion of total system processing. Conversely, if new 
schedules are too sparse or do not occur at the correct points in time 
then system thruput decreases. The model attempts to detect when a new 
schedule should be initiated by comparing short term running average 
CPU, lOP , and memory bandwidth utilizations with long term averages 
in conjunction with Instantaneous conditions of job queue status and 
memory space availability. In order to facilitate a better understanding 
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of this let us nmke a few definitions. 

Definition: Processor step utilization (PSU) 


PSU 


1 

NPROS 


NACT 

1=1 


NMAG(i) 

NMAR(i) 


where NPROS is the total number of processors, NACT is the nvraiber of 
active processors, NMAG(i) is the number of memory accesses, 
granted to the i^^ active processor and NMAR(i) is the number of 
me^ry accesses requested by the i*"^ active processor. 
Definition; Bandwidth Step Utilization (BWSU) 


BWSU = 


NMAG 

NMAA 


where NMAG = number of memory accesses granted 

and NMAA = number of memory accesses available. 

The short term running average utilizations are obtained as 
follows; 


RPUt = RPUt_i * NSTEP-1 + PSU/NSTEP 
NSTEP 

RBUj = RBUj_j * BWSU/NSTEP 

where RPU;^ and RBUx are running processor and bandwidth utilizations 
at Step I and NSTEP is a variable of the system which essentially 
adjusts the number of previous steps over which the average is taken. 
This is not the same type of running average that is used in statis- 
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tical work but it serves the purpose here of smoothing step fluctu- 
ations and requires storage of only the current estimate. Thus the 
new schedule equation may be of the form 

NEW SCHED = TSLS * [AVMS * NJMT + (STCU + STCU * NICU) 

• (STIU + STIU * NICU) • (SCWM + 

SCWM • (WMNS + WMNS • NWMNS))] 2.2 


where all the variables are Boolean variables and have the following 
meanings. 

1 if the time since last schedule > N 

TSLS = 

0 otherwise 


1 if the amount of available space 
AVMS = is ^ one-half the total memory space 

0 otherwise 


1 if the number of jobs waiting 

memory is ^ 1/2 the number of scheduled jobs 

NJMT = 

0 otherwise 


1 if short term CPU utilization 

is < THl * long term CPU utilization 

STCU = 

0 otherwise 


1 if the number of idle CPUs is 
> 1/2 the number of CPUs 


NICU = 


0 


otherwise 
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1 if short term lOP utilization 

is < THl ^ long term lOP utilization 

STIU. = 

0 otherwise 


1 if the number of idle lOPs is 

> 1/2 the number of lOPs 

NIOU == 

0 otherwise 


SCWM = 


1 if the number of jobs that are 

scheduled and waiting memory is 
>0 and the amount of free space 
is ^1/4 the total space 

0 otherwise 


WMNS « 


1 if the number of jobs waiting memory but 

not scheduled is > 0 and at least 1/4 of 
the total memory space is available 

0 otherwise 


1 


NWMNS = 


if there are any jobs in the job queue 
that are not waiting memory and have npt 
been scheduled 


0 otherwise 


and N and THl are system parameters. 

Memory Allocation Schemes 

*Best fit* and 'first fit* memory allocation methods are described 
by Knuth [12]. Briefly each algorithm assumes that information con- 
cerning the available blocks is maintained in a list that is linked 
according to starting addresses in main memory- In the first-fit 
scheme when an allocation of size X is to be made a sequential search 
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of the list is made beginning at the top of the list until the first 
block of size ^ X is found. An allocation of size X is then made from 
this block and any remaining portion of the block is left in the avail- 
able list, otherwise, the list is relinked around this block. The 
best fit method assumes that the entire list is searched and the 
location in the list of the best fitting block of size greater than or 
equal to X is retained. If such a block exists then an allocation is 
made from this block. An 'Optimum Fit' strategy is described by 
Campbell [11]. This method assumes that in addition to the available 
list the number N of available blocks is also maintained. Before an 
allocation is made an integer F(N) is calculated where F(N) ^ N. The 
linked list is then searched through the first F(N) - 1 entries and 
the location of the best fitting block is retained. The search is 
then continued and the first block that is a better fit than any of the 
preceeding blocks is selected. 

There are several measures of the effectiveness of the memory 
allocation scheme. One such measure is its ability to make an alloca- 
tion in one contiguous block at any time. Under such a measure the 
scheme which tends to keep most of the available space in a single 
contiguous block tends to have as good (if not better) chance for 
making a large allocation at any time as any other scheme. Simulation 
seems to indicate that under this measure there are only marginal 
differences between the first-fit, best-fit and optimum-fit algorithms. 
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Other measures take into consideration the amount of time that 
is required to implement the algorithm. The algorithms would defi- 
nitely be ranked first-fit, optimum-fit and best-fit if the only con- 
sideration were that of minimum time for implementation. However, 
even here, whether or not this difference is significant in a practical 
sense depends on the actual average number of available blocks of 
storage. In this regard, it is noted in passing that there appears to 
be some negative correlation between the ratio of average request size 
to total memory size and the average number of available contiguous 
blocks of storage. 

The simulation model uses two types of memory allocation schemes. 
The first method utilizes the optimum-fit algorithm in a non-feedback 
scheduler/allocator. The second method uses an adaptation of the 
best-fit algorithm in a feedback scheduler/ allocator. In this second 
allocation method some loose optimization in bandwidth matching is 
attempted by associating some estimated bandwidth requirement for the 
jobs to which memory is to be allocated with an estimate of bandwidth 
availability from the available blocks of memory at allocation time. 

As already noted during the discussion of the internal priority equation 
this goodness of fit in bandwidth as well as space also influences 
the schedulers via the internal priority of each job. For this reason 
this method of scheduling and memory allocation is called a feedback 
scheduler/ allocator . 
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Mechanics of the Optimum-Fit Algorithm 

Let N =5 number of available memory blocks. 

Let MAVL be the list of available memory that are linked according 

to starting address in main memory. 

Upon memory request, calculate an integer, F(N), defined by 

1 , 1 1 . , , 1 . 1 ■ . 1 

F(N) F(N) +1 * • N-1-'^ - F(N) - 1 F(N) ‘ * N-1 

or for N > 9, - < F(N)< - + 1 -- 

— e e E 

where e - 2.718. 

Then search the linked list, MAVL, and select the first block after the 
F(N) - 1^^ block that is a better fit than any of the previous blocks. 

If no better fitting block is found after block F(N) - 1 then select 
the best fitting block among the first F(N) - 1 blocks, provided one 
was found in this group. 

The rationale behind the optimum-fit strategy is explained in 
[11] • It should suffice here to say that the method assumes that the 
block sizes are uniformly distributed along the linked list and that 
there are on the average a number of choices from which an allocation 
could be made. If these statistical properties do in fact hold, the 
method stands a good chance of actually selecting a block that is close 
to the best fit as well as reducing the search time below that required 
by the best fit algorithm, especially if there is a large number of 
blocks in the list. It is shown in [11] that the probability of 
actually choosing the best fitting block approaches 1/2.718 with 
large N. 
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Mechanics of the Best Fit Algorithm vlth Feedback 

Let MA.VL be the list of available blocks linked according to 
starting addresses. Let NAML be a list of jobs waiting memory. 

1) Search over all blocks in MAVL and all jobs in NAML for best 
combined fit in space and bandwidth. 

2) Make an allocation to the job from the block for which the 
space and bandwidth available from the block most closely 
approximates that required by the job. 

3) Repeat steps 1) and 2) until either all memory space has 
been assigned, all job requirements have been satisfied, or 
no more assignments are possible. 

In each of the above schemes used by the model it is assumed that 
a small batch of jobs are to be allocated memory at the same time. Any 
unused portion of a block from which an allocation is made remains in 
the list as an available block. Also, when making second and third 
allocations to a TMR job these additional allocations must be made 
from disjoint sets of memory modules. Actually no allocation is made 
to a TMR job until it has been determined that three allocations can 
be made from three disjoint sets of modules. 

Estimation of Bandwidth of Available Space 

In order for the feedback scheduler/allocator to work an estimate 
of the bandwidth available from each memory module is required. This 
is obtained by means of counters which count the number of accesses made 
to each memory module over some period of time. In order for the slmu- 
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lator to obtain the required estimates three one dimensional arrays 
are required as follows: 

MASC*) — module space registers 

IBWCTRC*) — elapsed time counters 

NAA(*) — available access accumulators 

The number of elements required in each array is equal to the 
number of memory modules. In a real system these arrays would be 
hardware registers. The current estimate of the available bandwidth 
from each module is updated by the Program Executer during each step 
of execution processing immediately after the total number of access 
requests to each memory module has been determined for the processing 
step. The IBWCTR array is also updated at this time. The updating 
of the NAA array is as follows. 

NAA(I)-*-NAA (I) * (1 - 1/MAXCNT) if IBWCTR(I) ^ MAXCNT 

and NTR(I) ^ ICONl 

NAA(I)-<-NAA(I) * (1 - 1/MAXCNT) + (ICONl - NTR(I) ) /MAXCNT 

if IBWTR(I) ^ MAXCNT 
and NTR(I) < ICONl 

NAA(I)^NAA(I) * (IBWCTR(I)) /MAXCNT 

+ ( (MAXCNT - IBWCTR (I)) * ICONl * MAS (I) / (MAXCNT * 

MODS 12) 

if IBWCTR (I) < MAXCNT 


and KTR(I) > ICONl 
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NMCD-^NAAd) * CIBWCTR(I) /MAXCNT 

+C(MAXCNT - IBWCTR(I) * ICONl * MAS (I)) /MAXCNT * MODSIZ) 
+ CICONI - NTR(D) /MAXCNT 

if IBWCTR(I) < MAXCNT 
and NTR(I) ^ ICONl 

where MAXCNT is a parameter of the system that effectively sets the 
number of processing periods over which the bandwidth estimates are 
obtained. IBWCTR(I) contains the minimum of the number of processing 
steps since an allocation or release of space from memory module I has 
been made and MAXCNT, NTR(I) contains the total number of accesses 
requested from module I at the processing step under consideration, and 
ICONl is the number of memory module cycle periods per simulation step. 

Estimation of Job Bandwidth Requirements 

Estimates of job bandwidth requirements are based on some assumed 
known mix of the types of instructions to be executed by the job as 
well as the speed of the system's hardware processors. Actually only 
two types of instructions are assumed for these calculations. The 
estimated bandwidth requirements are computed as follows: 

MNAR = ICON/(ITA + IPCT * (NPCS * MIX + NPCL(1 - MIX))) 

where ICON is the number of processor cycle periods per simulation step , 
ITA is memory access time, IPCT is the processor cycle period time, 

NPCS is the number of processor cycles per short instruction, NPCL is 
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the number of processor cycles per long instruction, and MIX is 
the proportion of short instructions that the job performs * 

Processing Scenario 

In order to clear up any ambiguities that may have inadvertently 
arisen from the discussions of the preceeding parts of this chapter 
let us consider the sequence of events that take place during a 
simulation run following job generation and initial preprocessing. In 
this discussion assume that the non-feedback scheduler/allocator is 
employed and only SIMPLEX jobs were generated. 

(1) A schedule is obtained whereby the jobs that are ready 
for execution are ordered according to the priority scheme. 

(2) Memory is reserved for as many of the jobs that were scheduled 
in step (1) as is available from the memory space. 

(3) As many lOPs as is consistent with system constraints is 
assigned to the jobs that are in the present schedule and 
have memory reserved in the order of the schedule. 

(4) The lOPs that were assigned in step (3) begin loading the jobs 
to which they are assigned and continue this loading operation 
until each of their respective jobs has been loaded into 
memory, whereupon they are reassigned to other jobs or else 
placed in an idle condition until some job requires their 


service. 
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(5) As soon as a job becomes loaded its status is set to wait CPU. 

(6) A search is then made for a CPU for assignment to this job. 

The first idle CPU is assigned provided one is found, other- 
wise a search is made to see if a job of lower priority has 
a CPU. If the latter condition exists then , the lowest 
priority job having a CPU is preempted and its CPU is 
reassigned to the higher priority job. 

(7) The job obtaining the CPU then begins program execution and 
continues until it either completes execution, reaches an I/O 
interrupt point or is preempted by a higher priority job. In 
case of reaching an I/O interrupt point in its program the 
CPU may either be retained by the job if its priority is 
sufficiently high and no other jobs are currently waiting 
for a CPU or a search may be made for some other job needing 
the service of a CPU. If in the latter case no job is found 
waiting for a CPU then the CPU may be placed in an idle 
condition and remain so until some job has a need for its 
service. Having in some manner disposed of the CPU that was 
assigned to the job under consideration, a search is then 
made for an idle lOP for assignment to this job. In case such 
an lOP is found it is assigned to and remains the exclusive 
property of this job until this job’s current I/O processing 
assignment is completed, thereafter a search is made for 

some other job that is waiting for an lOP. If the new job 
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that is waiting for an lOP is not in a lo condition or 
if the system constraint concerning the number of lOPs that 
may be assigned to load operations at any given time is not 
presently reached then the lOP is assigned to this new job, 
otherwise the search is continued either until a suitable 
new job is found or no further candidates remain. If the 
latter condition is the case then the lOP is set to an idle 
state. 

(8) If the new job under consideration already has a CPU then 
processing continues; otherwise continuation for this job is 
made in step (6). 

(9) The job processing described in steps (1) through (8) contin- 
ues until a new schedule Is triggered by system resource 
utilization and system status and job queue status monitors. 

The entire process beginning with step (1) is repeated with 
inclusion of any jobs that were not completed during 
processing of the previous schedule. 

Efficiency Considerations 

In order for the efficiency of a multiprocessor system as hypoth- 
esized so far in this paper to approach the efficiency that is obtainable 
from a uniprocessor, i.e., a special case of the multiprocessor 
having only one CPU, certain relationships must exist between the 
distribution of memory space and bandwidth requirements of the input 
job set and that available from the memory as well as speeds of the CPUs 
and lOPs relative to that of the memory. 
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From the above scenario it appears that if no jobs are perma- 
nently resident in the main memory then the lOPs that are assigned to 
load operations should be able to load jobs as fast as the CPUs 

and lOPs that are assigned to processing operations can complete 
jobs, otherwise the CPUs and a portion of the main memory stand 
a higher chance of being idle while waiting for jobs to be loaded 
into the memory. On the other hand, if these lOPs can load jobs 
faster than the CPUs and lOPs that are assigned to processing 
operations can complete jobs then these lOPs and that portion of main 
memory into which they may have just completed loading will be idle 
until some jobs are completed and their memory space is relinquished, 
thereby allowing more jobs to be loaded. Furthermore, the lOPs that 
are assigned to processing operations should be able to perform the 
I/O processing for the jobs that are initiated as fast as the CPUs 
can perform the CPU processing on this same set of jobs, otherwise a 
portion of the total space bandwidth product of the memory and either 
CPU or lOP time is wasted while one is waiting on the other. Thus 
it seems reasonable that to approach maximum utilization, after a 
steady state condition has been reached, approximately one-half the 
memory should be utilized for loading in new jobs and that the other 
half should be utilized for processing of those jobs that have completed 
loading. Furthermore, half of that half of memory space in which jobs 
are being processed should on the average be utilized for CPU processing 
with the other half of that half being utilized for I/O processing. 

In this manner utilization of memory, CPUs and lOPs should approach 
the maximum value that is obtainable with a particular set of jobs. 



Ill, THE MEMORY CONFLICT PROBLEM 


Memory conflict arises in the multiprocessor system when two 
or more processors attempt to obtain an access from the same memory 
module simultaneously. Obviously if all the processors involved in a 
conflict desired to read from the same location or write the same 
information into the same location then there would be no logical reason 
why they could not, however, the expected frequencies of these occur- 
rencies are so small that they do not warrant the cost involved in 
detection and provision of special hardware for implementation. Thus, 
we may assume that all but one of the processors involved in a memory 
access conflict will be delayed by one memory module cycle period for 
each such conflict in obtaining the accesses that they desire. If it 
is assumed that no look-ahead or look-behind is used in obtaining 
memory accesses then all but one of the programs whose processors are 
involved in a particular memory access conflict will be delayed by 
a memory module cycle period. In this regard let us define slowdown 
of a particular job and slowdown of the system. In order to do this 
we need to assume a period of time over which the amount of slowdown 
is to be measured. It is most convenient to measure time by counting 
the number of memory module cycle periods contained in the interval 
of time that it is desired to measure. Then the amount of slowdown 
for a particular job over some interval of time containing T memory 
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module cycle periods Is the ratio of the number of memory module cycle 
periods at which the job made a memory access request but did not obtain 
one to the total number of memory module cycle periods at which the 
job made an access request during the interval T. Similarly the slow 
down of the system over this interval T is the ratio of the sum over 
all memory module cycle periods in the interval T of the sum of the 
total number of access requests made at each period but not granted to 
the sxim over all memory module cycle periods in the interval T of 
the sum of the total number of accesses requested. 

These definitions may be made clearer through the following 

equations that are useful for calculating the amount of slowdown. 


1 


Let r(l,j,k) = < 


if job j requests a memory access 
from module k at time i, 

otherwise 


Let rng(i,j,k) 



if r(i,j,k)=l and module k does not 
grant an access to job j at time 1. 

Otherwise 


Let NMOD be the number of memory modules in the system. Then slowdown 
for job j (SLDN(j)) over the Interval [a,b] is given by 


b NMOD 

!> ^ mg(i,j,k) 

i=»a k.=l 

/ b NMOD 

MAx(l, ^ ^ rCl.j.k) 
' i=a k=l ^ 


SLDN(j)= 
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Let NJOBCi) be the number of jobs Ln the system at time i. Then 
slowdown of the system over the interval [a,b] is given by 

b NMOD NJOB (i) 

^ > rngCi,j,k) 

i ^ - RTOB(l) 

MAX (l, 21 21 2! r(i,j,k) 

' i=a k=l j=l 

It would be useful to obtain a feeling of how severe this problem 
really is under certain conditions. 

Let us assume that the sum of the average access rates to a 
particular memory module of all processors executing jobs having space 
in this module to be less than or equal to the bandwidth of the module. 

fii^st let us consider the simplest case in which two processors 
are simultaneously executing programs from the same memory module and 
the mean access rate of each processor to the module is one-half the 
bandwidth of the module and uniformly distributed in time. Then at 
s given module access time t the probability of a conflict is 1/4 
provided no conflict occurred during the previous access period t-1, 
and 1/2 provided a conflict occurred at time t-1. This is true since 
It may be assumed that if a processor does not obtain the access that 
it wants at time T then it will keep trying to obtain this same access 
at time T + 1 with probability 1. On the other hand, if it obtains an 
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access at time T then its probability of attempting to obtain an access 
at time T + 1 is 1/2. Thus we have the relations 


Pt = 1/4(1 - + 1/2 = 1/4 + 1/4 

Pt~l = 1/^ + 1/^ Pt-2 


Actually there are only a finite number of these relations that 
we need to consider in order to find the probability of conflict at 
time t. However, it is easier to solve for the case of an infinite 
number of these relations. In the Infinite case 


P 


^h\4J 1 3 


Thus, in this simple case we see that if each processor has equal 
probability of obtaining an access in case of conflict then each 
program is expected to proceed at 5/6 = ,833 of normal speed. This may 
be justified on the basis of the assumption that the number of accesses 
over a given time interval is from a normal distribution for each job. 
The combined distribution is then also a normal distribution with 
mean equal to the sum of the means of the individual distributions and 
variance equal to the sum of the individual variances. Thus the 
combined standard deviation is less than or equal to the sum of the 
individual standard deviations. 

Under the constraint that the sum of the mean bandwidth require- 
ments of the programs being executed from a memory module does not 
exceed the module bandwidth then the case where each program has equal 



47 


bandwidth requirements is the worse case for conflict. This may be 

intuitively verified in the simple case of two processors simultaneously 

executing programs from the same memory module. Consider the case 

where the mean bandwidth requirements are 3/4 and 1/4 that of the 

memory module and uniformly distributed in time. Also assume that the 

probability of each processor obtaining the access in case of conflict 

is 1/2. Then the probability of conflict at time t is 1/4 • 3/4 if no 

conflict occurred at time t-1. It is 1 • 1/4 if conflict occurred at 

time t-1 and the processor with bandwidth requirement of 3/4 did not 

receive an access at time t-1. It is 1 • 3/4 if conflict occurred at 
time t“l and the processor with bandwidth requirement of 1/4 did 

not receive an access at time t-1. Thus 

Pt = 3/16 (1 - + 1/4 • Pt-i • 1/2 + 3/4 P^^i • 1/2 

= 3/16 + 5/16 * Pt_i 

so = 3/16 + 15/256 + 75/4092 + . . . . 

Thus we have another geometric sequence with initial value 3/16 and 
common ratio of 5/16. In the infinite case the probability of conflict 
is P = 3/11. The general result is easily proven by elementary methods 
of calculus. 

In the general case let xBm be the mean bandwidth requirement of 
the first job and let y • b® the mean bandwidth requirement of the 
second job and assxme that the access rate for each job is uniformly 
distributed in time. Furthermore let c = x + y ^ 1 where c is a 


constant. Then 
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Ft “ X . y (1 - Pt«i) + 35 ♦, Pfl I 1/2 + X/2 

= xy - xyPt^i + 1/2 (x + 

= xy + 1/2 (x + y -2xy)Pj._j^ 

Pt-1 “ xy + 1/2 (x + y -2xy) P^^2 

so 

?t = xy + 1/2 (x + y -2xy)(xy + 1/2 (x + y -2xy))P^ 2 

= xy + 1/2 (x + y -2xy) (xy) + [1/2 (x + y -2xy)]^ P^ ^ 

Finally ' ^ 

CO 

Pj. = xy.^[l/2 (x + y -2xy)]^ 
i=o 

= 52 

1 - j (x + y -2xy) 

_ x(c - x) 

1 - (c -2x(c - x)| 


Dif f e^^entiating with, respect to x and setting result to 0 we obtain 


dP^ -2x)|l - (c -2x(c - x)j - |xc “ x2j | c -2xj 

(l^ I (c- -2x(c - x)))2 ~ 


Thus 


dx 


(c - 2x) |l - + cx - X 


J - ^xc - c -2xJ = 0 


X = y c. 
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Now consider 3 processors executing programs from a single 
memory module. Assume also that the access rate for each program is 
uniformly distributed oyer its processing period and that all processors 
have equal probability of obtaining an access in case of conflict. We 
must now worry not only with the probability of conflict but also with 
the degree of conflict. Let us denote these degrees at time t by 
?1 ^ and ?2 ^ where ^ is the probability of conflict involving 2 
processors and 1^2, t probability of conflict at time t involving 

3 processors. 

The probability of conflict of degree 1 at time t is the proba- 
bility that exactly two processors contend for an access at time t. 


Thus the probability of contention of degree 1 at time t is ^"3 * 
provided no contention occurred at time t-1. . The probability of 



contention of degree 1 at time t Is 1 * 3“ * provided contention 
of degree 1 occurred at time t-1. It is equal to 2/3 provided conten- 
tion of degree 2 occurred at time t-1. Thus 


Pl.t - I (1 - Pl.t-l - P2.t-l) * I • Pl,t-1 + I P2,t-1 

Pl.t-|+|Pl,t-l+|P2,t-l 


Similarly the probability of conflict of degree 2 is 

P2,t - - Pl,t-1 - P2,t-l) + (f)'- Pl.t-1 ■p|P 2.t-l 
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Thus by backing up step by step iti the time and solving for P, . 

1 » t 

recursively we find that 



and similarly. 


OO 00 



i=l 1=1 


In order to make the problem tractable let us assume that the 
probabilities of conflict of each degree are all stationary time series 
[13], [14]. Thus 


j,t 


for 1 = 1, 2, 


Then we may obtain 


■l,t 




2,t 


P, 

19 19 


Therefore 


' = 
l»t ' 125 


= .336 


and 



209 = 

2375 


.088 
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The slcwdown due to memory conflict' Is 

j X .336 + I X .088 = .112 + .059 » .171 

Under the assi^mptlon of equal chance for obtaining an access in 
case of conflict each program is expected to proceed at *829 of normal 
speed* 

For the four processor case under the assumptions as above the 
pertinent equations are: 

P = ^ -h -ii P 27 p 

1. t 101 101 2,t 101 3,t 

p a ^ p + ^5 p ■ 

2, t 43 43 U,t 43 3,t 

and 

i> _ ^ P 

- 193 + 193 Pl,t + 193 2,t . 

The solution to this set of simultaneous equations is; 

= *326, ? 2 ^t “ -132 and P 3 ^ “ *0209 

Thus the slowdown is 

= *0157 + .0685 + .0815 = .166 
so each program proceeds at .834 nopnal speed* 

Thus we note at this point that the slowdown due to memory 
contention is not very sensitive to the number of processors executing 
programs from a single module so long as the sum of the means of the 
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bandwidth requirements are kept less than or equal to that of the 
memory module. 

Now let us consider the general case of N processors executing 
N programs from a single memory module in which each processor has a 
mean access rate equal to 1/N of the bandwidth of the memory module. 
Also assume the following: 

(1) The access rate for each program to the memory mod\ile is 
uniformly distributed over its processing interval. 

(2) All processors have equal chance for obtaining the access in 
case of an access conflict. 

(3) The probabilities of conflict of each degree form stationary 
time series. 

(4) All contending processors not gaining an access when conflict 
occurs continue to contend for an access at subsequent access 
periods until they obtain an access. 


Under these conditions the general formula for the probability of 
conflict of degree k at time t is given by 


P 


k, t 


MIN(N-1, k+1) 



i=0 



(3.1) 


for k = 1, 2, . . . N-1 


and P_ 
o 


,t-l 


= 1-ZIP 


j.t-i • 
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This formula leads to a set of N-1 simultaneous linear equations 
in N-1 unknowns when developed in the manner as shown for 2,3 and 4 
processors* 

The amount of slowdown due to memory contention under the 

assumptions of the preceeding discussion is plotted for 2 through 16 

processors in Fig. 3^1. Also plotted are three other curves repre- 

1 1 3 

senting mean bandwidth requirements of » and ^ times 

the memory module bandwidth for each processor. From this figure it 


should be observed that the amount of slowdown due to memory contention 
peaks at approximately 17% for the three processors case and decreases 
slowly to approximately 11% for 16 processors when the mean bandwidth 
requirement per processor is equal to 1/N • Bm where denotes the 
memory module bandwidth. Thus we may conclude, aside from the physical 
problem of contention resolution, that while the amount of slowdown 
due to memory contention (i.e., processors getting in one another’s 
way) is not insignificant it is not intolerable. In this context 
it should be pointed out that a distinction has been made between slow 
down due to conflict when sufficient memory module bandwidth is 
available to meet the mean demands of all the jobs being simultaneously 
executed from that module and slowdown due to contention when insuf- 
ficient bandwidth is available to meet the mean demands. In the first 
case the slowdown may be attributed completely to the relationships 
between the time of occurrence of the individual job demands and the 
manner in which the actual execution of each program proceeds (i.e., on 
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a fixed sequence of instruction executions in which no remaining 
Instruction can proceed until its immediate predecessor has been 
executed) . Attempts to lessen the effects of slowdown due to conten- 
tion in this first case Include the use of look-ahead and look- 
behind techniques. Look-ahead attempts to capitalize on the basically 
sequential nature of computer programs by reading the contents of the 
next n consecutive instruction locations from the main memory (usually 
an interleaved memory) at each memory access period into a dedicated 
local storage area for the processor obtaining the access at each 
period. This technique is described in considerable detail by Burnett 
[1] and by Burnett and Coffman [2], The look-ahead technique is also 
embodied to a certain extent in high speed buffer storage memory 
systems as described by Conti [3] [4] and by Liptay [5] [6], Look- 
behind attempts to exploit short length backward branches in computer 
programs such as short DO loops by retaining the preceeding n instruc- 
tions in a local dedicated storage area for the processor. 

Slowdown due to localized bandwidth limitation can occur with 
a uniprocessor as well as with a multiprocessor but the probability of 
occurrence is much greater with the multiprocessor. This probability 
is high when several processors' are simultaneously active and when 
module size is much greater than mean job space size or when job space 
requirements are dispersed over a large range and several high band- 
width jobs are simultaneously executed from a single memory module. 

The complement problem to localized bandwidth limitation is inefficient 
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bandwidth utilization caused either by jobs with large space to band- 
width ratio requirements or by the use of scheduling and memory 
allocation routines that do not take bandwidth requirements into 
cons iderat ion . 

The effects of these second causes of slowdown and bandwidth 
nonutilization- will be explored in the next section. 

The amount of nonutilization of memory bandwidth can also be 
easily obtained by means of the preceedlng analysis through the 
following equation: 

^nu i N j ^o»t-l 


where 

Pnu “ probability of nonutilization, 

N = number of processors accessing the common memory module, 

^ = mean bandwidth requirement of each job, 

and 

P = probability of no conflict at time t“l* 

0,t“l 


Fig. 3-2 shows a plot of for four values of A equal to .25, .50, 
.75, and 1.0. 



Bandwidth Nonutilization 


1.0 H 



Bandwidth requirements = 


- .25 


N 




. 6 -^ 


Bandwidth requirements = 


.50 

H 


* 





0 I 1 1 1 •— < 

2 3 4 5 6 7 8 9 10 11 12 

Number of Processors (N) 

Fig. 3-2. Bandwidth Nonutilization. 


IV. LOCALIZED BANDWIDTH LIMITATION AND MISMATCH 


In equation 3.1 we may replace 1/N by z where z represents a 
time average probability that a job will require an access from its 
memory space at any given access period without regard to remembrance 
of previous response to access requests. Doing this we obtain 


MIN(N-l,k+l) 


..■I 


i=0 


'N-i 


k+l-ij 


(1 


(2)k+l-i p 

X , L X 


for k = 1, 2, . . . N-1, 0 £ 2 £ 1 
N-1 

^o,t-l " ^ ~ ^j,t-l 


Thus, z is an average probabilistic measure of the bandwidth . require- 
ment from some memory module of a particular job having space in that 
module. Now as the bandwidth requirement of the job increases beyond 
the bandwidth available from the memory module the probability of 
requesting an access at any given access period approaches 1 without 
regard to any recall that the job is assumed to have about a prior 
access that may have not yet been granted. Thus when the combined 
mean bandwidth requirements of two or more jobs that are being simul- 
taneously executed from a common memory module is increased beyond the 
bandwidth available from the common memory module the effects of memory 

access conflict due to the processors merely occasionally getting into 
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each other's way is quickly swamped by the effects of bandwidth 
limitation. The essence of the above statement is contained in 
Fig. 4-1 in which the slowdown obtained from solutions to the simul- 
taneous linear equations ensuing from equation 4--1 have been plotted 
for 3 through 16 processors with values of z ranging from .25/N • 
through 3/N • and for two processors from .25/N through 
2/N • Bjn all with steps of .25/N ' Now consider the following 

tabulation obtained with the aid of the six processor case of Fig. 4-1. 


Bandwidth 

Requirement 

* ^ 

Slowdown 
Due To 
Bandwidth 
Limitation 

1.00 

.0000 

1.25 

.2000 

1.50 

.3333 

1.75 

.4285 

2.00 

.500 

2.25 

.5555 


Total 
Slowdown 
From Curves 

Slowdown 
Due To Access 
Contention 

.150 

.150 

.245 

.045 

.350 

.0167 

.430 

.0015 

.500 

.0000 

.5555 

.0000 


This brief analysis indicates that the contribution of access 
conflict to slowdown becomes insignificant when compared to that of 
bandwidth limitation for combined mean bandwidth requirements above 
1.25 times the bandwidth available from the memory module. 

It is apparent that if the bandwidth demands made to all the 
memory modules of the multiprocessor system is very much greater than 
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that available from the modules then very little can be done through 
memory allocation techniques to alleviate the problem. On the other 
hand if the problem is one of distribution wherein the overall band- 
width demands are unevenly distributed among the memory modules then 
scheduling and allocation techniques which take into account bandwidth 
considerations may be effective in relieving the problem. First let 
us try to get a feeling for how severe the problem actually is. 

Suppose that as input to the multiprocessor system we have an 
unlimited supply of incoming jobs (in our case a small set of recurring 
jobs) of two mean bandwidth requirements and one space requirement. 

The two mean bandwidth requirements are bj^ and b2 where bj^ + b2 = 
and >> b2 - The one space requirement is which is equal to one- 
half the space of a memory module (Sj,j) . Furthermore let us assume that 
each type of job requires approximately the same amount of processing 
time and there are enough processors so that all jobs having memory 
space may be in progress simultaneously. Now depending upon how the 
jobs occur in time and how the job scheduler and memory allocator act 
in scheduling the jobs and placing them into the memory there may or may 
not be localized bandwidth limitation or mismatch. In this regard let 
us assume that there are enough of either type of job in the job queue 
at any schedule time to fill the available memory. Thus, a memory 
module may hold one of the three combinations bj^bj^, b2^b2, or b2b2- 
For the combination bj^bj^ the jobs are slowed to approximately one-half 
of their normal speed due to insufficient bandwidth. However, the 
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bandwidth utilization is expected to be close to 1. In the second 
case (b]^b 2 ) the jobs are expected to proceed at approximately normal 
speed except for memory access conflict. The bandwidth utilization 
in this case is expected to be close to 1. In the case with b 2 b 2 
the jobs are expected to proceed at normal speed except for memory 
access conflict but the bandwidth utilization is expected to be closer 
to 0 than to 1. As a specific example let b]^ =® and '^2 ~ 

Then with the combination bj^b]^ the slowdown due to insufficient band- 
width is expected to be .44. For the combination bQ^b 2 no slowdown due 
to bandwidth limitation occurs and bandwidth utilization is close to 1. 
The b 2 b 2 combination should not be slowed down due to bandwidth limita- 
tion but bandwidth utilization is expected to be only .2. With a 
random placement the probabilities of the combinations bj^b^^, 
b 2 b 2 are 1/4, 1/2, and 1/4 respectively. Thus slowdown of the overall 
system due to localized bandwidth limitation under this random place- 
ment is expected to be 1/4 x .44 + 1/2 x 0 *= .11 and expected bandwidth 
utilization is 1/4 x 1 + 1/2 x 1 + 1/4 x .2 = .25 + .50 + .05 = .8. 

The above introductory example suggests a method for investigating 
the amount of slowdown and nonutilization due to localized bandwidth 

limitation and mismatch under a random placement scheme. To aid in 
this investigation let us assume the following: 

(1) The input job stream consists of an infinite supply of jobs 

of one space requirement = S^/^^ ^nd n bandwidth require- 

\ 

men ts . 
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(2) Jobs with each bandwidth requirement occur with equal 
frequency. 

(3) The scheduler and memory allocator shows no bias in regard 
to bandwidth requirements. 

(4) Processing time is the same for all jobs regardless of band- 
width requirement. 

(5) The svim of the bandwidth requirements is A Bjjj and the actual 
requirement array BW is BW = (0> 1/n W, 2/n • W, . . . 


— . W) , where W 


2A 

n(n-l) * 


Under (1), (2), (4) and (5) there is at least one job scheduling 
and allocation scheme in which (3) holds and no slowdown due to bandwidth 
limitation or non-utilization of bandwidth due to mismatch results • 

This scheme is of course the one in Which one job of each bandwidth 
requirement is loaded into each memory module. A random placement 
scheme would result in total bandwidth requirements that are in accor-^ 
dance with the multinomial distribution. For example, for the three 
processor case there are three different patterns of bandwidth selections. 
These three patterns are (x)(y)(z), (x)(y,y), and (x,x,x) . The x's, 
y^s and z’s represent a particular bandwidth requirement. Clearly, 
in so far as the total bandwidth requirement is concerned permutations 
of the groups in a pattern or permutations of the elements in a group of 
a pattern or elements among groups of the same size in a member of a 
pattern makes no difference. For A = 1, the first pattern has the 
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single member (0) (1/3) (2/3) . It occurs with frequency 

3!/(lI X ll X II) - 6 when all its permutations are totaled. For 

the second pattern the members are (Q)(l/3, 1/3), (0)(2/3, 2/3), 

(1/3) (0,0), (1/3) (2/3, 2/3), (2/3) (0,0), and (2/3) (1/3, 1/3). Each 
of these members occurs with frequency 3l/(ll x 21). = 3. Finally, the 
third pattern has members (0, 0, 0), (1/3, 1/3, 1/3) and (2/3, 2/3, 
2/3). Each of these members occurs with frequency 3I/3I = 1. 

The distribution of total bandwidth requirement, slowdown due 
to bandwidth limitation and bandwidth utilization obtained by means 
of the above multinomial technique is shown in Fig. 4-2 for the three 
processor case. 

Unfortunately, the analysis by means of the multinomial 
technique is impractical for wjre than about eight or nine processors 
due to the very large number of terms that must be examined with more 
than this number of processors. For example, the number of terms for 
the three processor case is 10, for four processors it is 35 and for 
five processors it is 1231 Thus in the low range of the numbers of 
processors the number of terms to be examined appears to be growing at 
the rate of approximately (3-5) • If this rate of growth is constant 
the 16 processor case will require examination of 10 x (3*5)^^ 

1.183 X 10^ terms. When all the time for other numbers of processors 
up to 16 are added to this and runs are made for several different 
values of A the amount of computer time could be several hundred hours. 
Therefore, a different technique is required for the solution of the 
problem. Let us use a random number trials procedure in which at each 
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trial n Indices are generated which represents the indexes of the band- 
width requirements array BW. Graphs may then be plotted for the fre- 
quencies of each total bandwidth requirement range, bandwidth utilization 
range, and slowdown range. The results of this procedure for 3, 10, 
and 16 processors with values of A equal to 0.75, 1.0, and 1.25 are 
shown in Fig. 4-3 through Fig. 4-14. The means and standard deviations 
for slowdown and bandwidth utilization with A equal to 0.75, 1.0, and 
1.25 are plotted for 3 through 16 processors in Fig. 4-15 through 
Fig. 4-17. When Interpreting these curves it should be kept in mind 
that the distributions may be highly unsymmetrlcal about their mean 
values as is evident from Fig. 4-6 through 4-14. 
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Bandwidth requirement/(NPROS*BW(WPROS) ) 

Fig. ^“3 Frequency-Gram for bandwidth requirement for NPROS 
FW(I) = (l-l)A/( .5NPR0S*(KPR0S-l)). 
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F’ig. 4-4 Frequency-Gram for bandwidth requirement for NPROS 
BW(I) = (l-l)A/( .5NPR0S*(NPE0S-l)). 
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Fig. 4-7- Frequency-grams for slowdown and bandwidth 
Utilization, NPROS + 3, A = 1.0, BW(I) = 
(I-1)A/(.5NPR0S«(NP,R0S - l)). 



FreqLuency 




Frequency 


72 



B. Bandwidth Utilization 

Fig. lt-9. Frequency-grams for slowdown and bandwidth 
Utilization, KPROS=10, A = 0.75, BWCI) = 
(I-1)A/(.5 WPR0S*(WPR0S - 1)). 
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Fig. i*-12. Frequency -grams for slowdown and "bandwidth 
Utilization, NPR0S=l6, A = 0.75, BVJ(l) = 
(l-l)A/( .5KPB0S*{KPR0S-1)). 
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Fig. 4-16 • Means and Standard Deviations for Slowdovm and Bandwidth Utilization, A 
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Fig. i*-17 Means and standard deviations for slow down and bandwidth utilization, A=1.25 


V. THE PROCESSOR TO MEMORY INTERCONNECT PROBLEM 

In Fig. 1-1 we have implied that each processor may gain access 
to any memory module through the interconnection network. A major 
requirement of this network is that it not cause any slowdown in the 
operation of the system; i.e., it should allow transfer of data in a 
random access fashion to or from the memory as fast as the maximum 
speed of the memory. Furthermore, access to each memory module should 
be made on a memory module cycle basis so as to avoid potential waste 
of memory bandwidth that is Inherent in schemes which make a processor 
to module connection with minimum interconnection time extending over 
several module cycle periods. 

The two hardware arrangements which appear to be able to meet 
these requirements, at least from a theoretical standpoint, are the 
multiplexed bus and the full crossbar as depicted respectively in 
Fig. 5-1 and 5-2. The multiplexing of the multiplexed bus could 
conceivably be done through some frequency diversity or angle modulation 
scheme, however, these techniques are not compatible with the present 
state of main memory logic elements nor is the transmission medium 
noisy enough or signalling power so severely limited as to warrant the 
additional complications imposed by such schemes. 

Thus, we are left with time multiplexing. The time multiplexed 
bus requires less hardware to Implement than the full crossbar, but 
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Fig. 5-2 Logic structure of full crossbar 
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more stringent speed requirements are implied by the time multiplexed 
bus since only one processor can be connected to one of the memory 
modules at a time. Therefore, in making the interconnections, it is 
sequential by module or by processor depending upon the end of the 
bus from which the arrangement is viewed. The full crossbar requires 
more hardware to implement than the time-multiplexed bus but its speed 
requirements are much less severe when several processors and memory 
modules must be interconnected. Moreover, the additional hardware is 
repetitive with a regular structure. This regularity in logic networks 
is amenable to large scale integration techniques. Hence the cost of 
the full crossbar does not necessarily Increase directly with the 
number of processors and memory modules which must be Interconnected. 

For these reasons the full crossbar scheme is considered to be the best 
candidate for the multiprocessor system even though it may not be quite 
as flexible as a bus system in regards to ease of expansion. 

The crossbar interconnection arrangement is equivalent to a set 
of switches with one switch per memory module as shown in Fig. 5-3. 

This version will be used in developing an interconnection scheme for a 
priority driven multiprocessor. 

In a priority driven system each job that is executed by the 
system obtains use of the system's facilities on a demand basis according 
to its priority relative to that of any other jobs being simultaneously 
executed by the system. Thus in the context of use of the memory 
bandwidth each job that is being processed by the multiprocessor system 
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should be able to obtain accesses from the memory modules in which it 
has space approximately ixi accordance with its relative priority and 
as it so demands in time. From an overall efficiency standpoint the 
determination as to which processor has the right of access to a given 
memory module at a given time should be made on a module cycle basis 
since if some processors do not demand an access at a certain module 
cycle time due to the variability of the program that they are executing 
then they need not be considered in the resolution of possible access 
conflict. Consequently lower priority jobs stand a better chance of 
obtaining accesses during slack periods of memory access activity by 
the higher priority jobs* This means, however, that the determination 
of which processor is to obtain the next access from each memory 
module must be made in less than a memory module cycle period. Thus 
only simple schemes implemented in hardware appear to be feasible. The 
scheme must also ensure that the lower priority jobs should not be 
locked out from accessing memory modules in which they have space for 
periods longer than their relative priority dictates. Thus, our 
scheme for determining the right of access to each memory module should 
be responsive not only to the relative priorities of all contenders for 
each access but also to some simple function of the amount of time that 
each job has been in contention for an access but has not yet obtained 
it. 

In view of the above discussion consider the access right function 
of priority and time in contention given by 



where t^, is the number of module access periods that job j has been in 
contention for an access but has not yet received it, and Pj is the 
priority of job j. This simple function seems to possess most of the 
characteristics that we require. It may be obtained simply by adding 
the priority of the job to the present value of the function at each 
access period at which job j does not obtain the access that it is 
contending for. Otherwise, the value of the function is set back to 
the priority of job j if job j receives the access that it is contending 
for; thereby, in either case, readying for the next access period. The 
contention resolution process then consists of selecting from among all 
jobs that are contending for an access from a particular memory module 
the job possessing the largest access-right word. In case of a tie 
some mechanism is needed to determine a winner. Let us temporarily 
assume that the processors are ranked according to their numbering 
with lowest number representing highest ranking. 

Now let us see how this scheme will work through a short example. 
Suppose processors 1 through 4 are executing jobs A, B, C, and D with 
priorities 50, 100, 200, and 25 respectively from a single memory 
module. Furthermore, let us assume that each processor is in contention 
for every module access, regardless of whether or not it received the 
preceeding access. This represents an extreme case of bandwidth 
limiting but it is entirely possible in a multiprocessor. Underlines 
indicate the job obtaining the access in the tabulation shown in Fig, 5-4. 



RANK PRIORITY 


TIME 


T^'T'TTTT*TTT'TT'T''P'rT'TPT‘T' 

1 2 3 4 ^5 6 ^7 ^8 ^9 ^10 ^12 n3 ^14 ^15 ^16 ^11 nS 


50 100 150 200 50 100 150 200 50 100 150 200 250 300 350 400 50 100 150 


2 100 200 ^ 200 300 400 100 200 300 400 100 200 300 400 200 300 400 

3 200 200 400 200 400 200 400 200 400 200 400 200 400 200 400 200 400 200 400 


25 


50 75 100 125 150 175 200 225 250 275 300 25 50 75 100 125 150 175 


Period of length 12 


Fig. 5-4. Tabulation of Access Right Word as a Function of Time for 
Priorities of 50, 100, 200, and 25. 
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From this tabulation It should be observed that the sequence of accesses 
granted becomes periodic after time T 3 and has period of length 12 . 
During this period jobs A» B, C, and D received accesses in the 
ratios of 1/12, 1/6, 1/2 and 1/12 respectively. Their priorities 
relative to their total priority are 2/15, 4/15, 8/15 and 1/15 
respectively. The next natural question is concerned with whether or 
not the actual ratios of accesses granted can be made to more closely 
approach the priority ratios by some permutation of the ranking of the 
processors. There is a total of 4,’ = 24 different rankings of the 
four processors. The results for all 24 rankings are shown in Fig. 5-5. 
From this figure we may observe that the exact priority ratios in 
accesses granted may be obtained by ranking the processors according to 
the priorities of the jobs that they are executing. 

Unfortunately, the exact priority ratios in accesses granted can 
seldom be obtained by ranking the processors according to the priorities 
of the jobs that they are executing. However, this technique does 
appear to result in a more equitable distribution of accesses when some 
of the priorities are multiples of some of the others. It has no 
effect when no priority is a multiple of any of the others. Thus its 
adaptation does no harm in the latter case. Therefore, from this point 
on, let us assume that the processors are first ranked according to the 
priorities of the jobs that they are executing and secondarily accord— 
lug to their numbering. In this manner we preclude the possibility 


of a tie. 



PRIORITY 


RANKING 


50 

100 

200 

25 


Length Before 
Becoming Periodic 

Periodic Length 


2 2 3 3 4 4 

3 4 2 4 2 3 

4 3 4 2 3 2 


2 2 3 3 4 4 

111111 

3 4 2 4 2 3 

4 3 4 2 3 2 


2 2 3 3 

3 4 2 4 

1111 

4 3 4 2 


4 4 2 

2 3 3 

11 4 

3 2 1 


2 3 3 4 4 

4 2 4 2 3 

3 4 2 3 2 

11111 


3 3 8 3 8 8 
12 12 12 12 12 12 


9 9 9 9 9 9 
14 14 14 14 14 14 


8 8 8 8 8 8 
15 15 15 15 15 15 


ACCESS FRACTION 


3 8 9 8 9 8 
8 8 8 8 8 8 


Periodic 

Length 


Priority Fraction 

8 

12 

14 

15 

50 

2/15 

1/8 

2/12 

2/14 

2/15 

100 

4/15 

2/8 

3/12 

4/14 

4/15 

200 

8/15 

4/8 

6/12 

7/14 

8/15 

25 

1/15 

1/8 

1/12 

1/14 

1/15 


Fig. 5-5. Tabulation of Access Mechanism for All Processor Ranking with Four Jobs 
of Priorities 50, 100, 200, and 25. 
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In the preceeding example all the priorities were multiples or 
divisors of each other. However, ve would lik-e to know what happens 
when the priorities are not multiples, or divisors of each other. In 
regard let us observe the following facts about this scheme for 
the resolution of access conflicts. 

(1) Under the assumption that N processors simultaneously begin 
contending for an access at time 1 with their access right words all 
equal to the priority of the jobs that they are executing, and that 
all contend for every access, the length (i.e., no. of memory module 
cycle periods) before the lowest priority job obtains its first access, 
designated by LBLP, satisfies the relation 


MAX(N, 



+ 1) < LBLP < 


(N-l)Pjj 


+ 1 


where Ph Is the largest priority, is the smallest priority, 
and fxl indicates the smallest integer ^ x. 

This is easily verified since the lowest priority job cannot obtain 
an access before any of the higher priority jobs nor before its access 
right word is greater than the highest priority. Thus the left-hand 
portion of the relation must hold. Concerning the right-hand portion 
of the relation, it is observed that, considering the N-1 highest 
priority jobs alone, the largest value that any of their access right 
words may reach before the lowest priority job obtains its first access 

is Thus the largest value that the lowest priority job^s 
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access right word must exceed before obtaining its first access is 
Cn~i)Ph. 

(2) It is difficult to make improvements on the bounds in (1) 
\rtthout recourse to the exact ratios of all the priorities Involved. 

An analytical formulation in terms of these priority ratios and 
number of contending processors appears to be a formidable problem in 
itself and would actually add very little to the task at hand. The 
results of a statistical analysis would be more useful in gaining an 
overview of the manner in which the access granting mechanism is 
expected to work. 

(3) The proposed scheme performs poorest when two processors 
are continuously contending and Pjj = 2 Pl~ 1. In this case, the two jobs 
obtain alternate accesses even though their ratio of priorities is much 
closer to 2 to 1 than to 1 to 1. However, this is not as bad as it 

may at first appear since in a real situation neither of the processors 
would be expected to be contending at every access period. From the 
discussion of Chapter III concerning two contending processors and 
memory module bandwidth equal to the sum of the mean bandwidth require- 
ments of the two jobs being executed by the two processors and each of 
equal bandwidth requirements the probability of contention at time 
t+i, provided contention occurred at t, t+1, . . . t+i-1, is of the 
form (1/2)^. Thus, the probability of continuous contention of length 1 
is twice that of length 2, four times that, of length 3, etc. 
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On the other hand the problem tn the special case of two 
processors could be alleviated somewhat by adding only a fraction of 
the priority to the access right word of the processor not obtaining 
the access when the priorities are of certain ratios. However, this 
represents further complication to the overall mechanism with attendant 
potential for slowdown of the system. Therefore it will not be 
considered any further in this paper. 

The results of a statistical analysis of the length before the 
lowest priority job obtains its first access and the length between 
the first and second access is shown in Fig. 5-6 through Fig. 5-17 
for 2, 3, 5, 10, 13 and 16 processors with priorities ranging from 
1 through 255. The frequency-grams of these figures were plotted, for 
1000 samples each from a uniformly distributed random variable. The 
values were normalized about the integer ratio of the sum of the 
priorities to the lowest priority. From these frequency— grams it may 
be observed that the expected mean length before the lowest priority 
job obtains its first access is related to the number of contending 
processors as well as the normalizing factor NF = . The 

length between the first and second access by the lowest priority job 
is also related to the number of contending processors and the normal- 
izing factor, but the frequency grams indicate that this length is 
slightly less than that before the first access by the lowest priority 
job. These two parameters give an indication of the type of service 
that may be expected by a random selection of jobs being simultaneously 
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Fig. 5-8 Frequency-Gram for length before lowest priority Job 
obtains first access for 3 processors 
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Fig* 5^9 Frequency-Gram for length between 1st and 2nd access by 
lowest priority job, 3 processors* 














Fig, 5-15 Frequency- Gram fo.r lengrbh between 1st and 2nd access 
by lowest priority job, 13 processors- 
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fig. 5-17 Frequency- Gram for length between 1st and 2nd access by 
lowest priority job, 16 processors. 
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executed from a single memory module. The lower priority jobs will 
tend to obtain accesses at higher rates than their relative priority 
dictates while the higher priority jobs will tend to receive accesses 
at rates that are slightly less than their relative priority indicates 
that they should. This is the expected outcome over the ensemble of 
priorities and number of contending processors but particular cases 
may be contrary to this average trend as is indicated by the sequence 
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Nevertheless, the graphs indicate that the mean length before first 

access by the lowest priority job ranges from approximately -.052NF 

with standard deviation of .150NF for three processors to approximately 

-.107 NF with standard deviation of .076 NF for sixteen processors. The 

mean and standard deviation for the length between the first and second 

access by the lowest priority job ranges from approximately -.083 NF 

and .131 NF for three processors to approximately -.117 NF and .070 NF 

for sixteen processors. The priorities were always assumed to range 

from 1 through 255 . The two processor case is singular with mean equal 

to NF and standard deviation of 0.0 since the normalizing factor NF 

was taken to he the integer part of The curves appear to 

i 

approach a normal distribution as the number of processors increase. 
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The results for the means and standard deviations are summarized in 
Fig, 5-18 and Fig* 5-18A* 

A block diagram of the multiprocessor system with the proposed 
scheme for memory access conflict resolution included is shown in 
Fig. 5-19, In the context of conflict resolution no explicit 
distinction has been made between CPU^s and lOP^s. However, it may 
be desirable to give the lOP^s higher ranking than the CPU’s as well 
as weighting the priority words associated with jobs in the I/O 
processing state higher than that of jobs in the CPU processing state 
due to the critical nature of the timing required of input/output 
transfers. Also, in this context, it appears that each lOP will require 
a small dedicated buffer storage since the scheme does not guarantee 
right of memory access to any particular processor at a particular 
time. However, these requirements are not considered in this paper. 

As shown in Fig. 5-19 associated with each processor is a memory module 
address decoder which accepts as input an access request line labeled 
A and the memory module address lines. If the number of memory modules 
is a power of 2 and the log 2 M least significant digits of the address 
word is taken as the module address then interleaved memory results, 
but this is not considered to be the case at this point. Thus, we 
assume that the [log 2 CM)J high order bits of each address word is the 
module address. From each of the N memory module address decoders is a 
line to each of the M processor selectors. Therefore, each of the M 
processor selectors has as input one line from each of the N address 
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Fig- 5-1 8 Summary of Means and Standard Deviations normalized about 

[T P^/Pl] for Priority Driven Access Conflict Resolution Scheme. 
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Fig. 5“*18A Service to highest priority job relative to that 
of the lowest priority job under the priority 
criterion. 


MEMORY MODULE 



Fig. 5-19. Block Diagram of the Multiprocessor System with Conflict 
Resolution Scheme Included. 
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decoders as well as p lines from each of the N priority words. There 
Is one processor selector associated with each of the memory modules 
which selects at most one of the processors to be given an access 
at each memory module cycle period. The output of the M processor 
selectors control the gating between processors and memory modules. 

Fig^ 5-20 shows a memory module address decoder. Fig. 5--21 shows 
the combinatorial portion of a processor selector. The access word 
registers are capable of either adding the priority word at their 
inputs to their present contents or loading the priority word at 
their inputs at the times controlled by the memory module sequence 
timing and interconnect controller. The N inputs from the memory 
module address decoders control the gating of the contents of the 
access right words into the maximum word detector and only those lines 
corresponding to processors wanting an access from the memory 
module associated with the processor selector under consideration 
will be true. The maximum word detector compares the most significant 
bit of all contending access words with the maximum size for this bit 
position. If a particular word’s most significant bit is not as large 
as the largest then the output of the coincidence gate associated with 
this word and bit position will be zero. Consequently, any words not 
meeting the largeness test in their most significant bit position will 
not be considered at the lower bit positions since the output of the 
coincidence gates are also used as inputs to the input AND gates at 
the next lower bit position. The same test is then applied to the 
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Fig. 5-20. Memory Module Address Decoder. 
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Fig. 5-21. Processor Selector 
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next most significant bit position of each contender that has passed 
the largeness test at its preceeding more significant bit position. 
Thus, the outputs from the AND gates going to the processor ranking 
circuit will be true only for those words that were as large as 
the largest and were contending. 

The processor ranking circuit shown in Fig. 5-22 is used to 
determine a winner in case of a tie from the processor selector. Its 
inputs consist of the output of the processor selector for gating 
through the priority word associated with those access words that 
are as large as the largest- The processor ranking circuit works in 
a manner identical to that of the max word selector except the outputs 
are ordered according to processor number l.e. in case two or more 
contending processor's priority words are equal then the one with 
lowest number obtains the access provided its associated access right 
word was equal to the largest access right word. The outputs of the 
processor ranking circuit is used as inputs to the memory module 
sequence timing and Interconnect controller. The sequence timing 
and interconnect controller provides timing signals that coordinate 
the selection of the processor to obtain the next access and timing of 
the various events associated with the operation of the memory module. 

Fig. 5-23 shows the gating of the read/write line from each 
processor to each memory module. The inputs to these circuits consist 
of one line from each of the M module sequence timing and interconnect 
controllers. Fig. 5-24 shows the logic gating for one bit of the data 
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Fig. 5-22, Processor Ranking Circuit. 
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Fig. 5-23. Processor to Memory Gating (Read/Write Lines). 


109 




























Ill 


lines between the processors and mejnorjr modules. In places where the 
outputs of gates are connected together it is assumed that if one of 
the gates tends to cause the output to be true and the other tends to 
cause it to be false then the result is false. Fig. 5—25 shows the 
gating of the address words from the processors to the memory modules. 
The inputs to these circuits consist of one line from each of the 
M sequence timing and control circuits. At most one of the M can be 
true at a given access period. 

Time Required to Resolve Access Conflict 

Let us assume the following: 

(1) At most 16 processors will be contending for accesses from 
a single memory module. 

(2) The largest priority word is 255. 

From (1) and (2) the number of bits required for an access right word 
is [log 2 (16x255)] =12. If it is assumed that the coincidence gates 
of Fig. 5-21 are realized with three levels of gating then the ripple 
time for the max word detector (combinational logic portion of the 
processor selector) A is 5 x 12 + 1 = 61 gate delays. Similarly the 
ripple time through the processor ranking circuit is5x8+2x7=54 
gate delays. Thus a total of 115 gate delays is required for resolution 
of conflict. If we assume a gate delay of 5ns then the total time for 
access conflict resolution is 575 ns. This amount of time is probably 
too large for most high speed memory modules. The problem here is that 
these circuits operate on a sequential bit by bit manner in selecting 
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the largest word. If the number of bits in the access right and 
priority words were smaller then these circuits might be satisfactory. 
Nevertheless, let us consider an alternate arrangement that makes the 
selections in an essentially parallel manner. The number of gate 
delays for the circuits shown in Fig. 5-26 and Fig. 5-27 is Independent 
of the number of bits in the access right or priority words. The 
exactly 1 out of N and as large as largest circuits are shown in 
Fig. 5-28. Under the assumption that the coincidence gates are 
realized with three gate levels then the total number of gate delays 
for the circuits of Fig. 5-26 and Fig. 5-27 is at most 17. If it is 
asstuned that the amount of time delay per gate is 5ns then these 
circuits are capable of access conflict resolution in 85 ns. 
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Fig. 5-26 Alternate Processor Selector Circuit 
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Fig. 5-27. Alternate Processor Ranking Circuit. 
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As Large As Largest 




Exactly 
1 out of N 


Fig, 5-28. As Large As Largest and Exactly 1 Out of N Circuits, 
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VI • SOME PROBLEMS FOR THE SIMULATOR 

Introductory Remarks 

The true value of a simulation model such as is described in this 
paper is not the ability to provide specific answers to specific ques- 
tions but rather more often it is more useful in helping to formulate 
the original questions in such a manner that meaningful answers may be 
discovered. In other words, the simulation model helps to create an 
awareness of the problems and then provide the questioner with enough 
understanding of these problems such that answers to his questions about 
the problems conveys useful information to him. 

The model has a large number of parameters, both explicit and im- 
plicit. Quite often, changing one of these parameters in a certain direc- 
tion does influence the system in the direction that it intuitively 
appears that it should, but frequently the magnitude of the result is 
negligible in itself or of little consequence in light of a host of other 
mitigating factors. Thus the model provides a means for discovering 
which parameters are more significant under some set of assumed condi- 
tions. For these reasons during the investigations which will be con- 
ducted in this section of the paper, most of these parameters will be 
set to values for which past experience in working with the simulation 
model as it evolved indicates that they should be set in order to either 
highlight the effects of changes in other parameters or to remove the 
effects of parameters which have little real bearing on the particular 
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problem to be studied, but when taken along with a number of other para- 
meters, that may be similarly classified in regards to the problem at 
hand, tends to dilute the effects of the ones that are being studied. 

This is also necessary in view of the large number of combinations of 
values of parameters for which simulation runs would have to be made in 
order to ascertain the true nature of a particular parameter of interest 
under the diluted conditions. 

It should be apparent that the simulation model is not designed 
with the idea of obtaining precise results but nevertheless it is felt 
that useful information can be obtained about a multiprocessor computer 
of the form assumed in this paper through its use at a cost in time and 
material that is far lower than through other means. 

Since we will be concerned to a considerable extent in determining 
system resource utilizations in this section let us define memory space, 
memory bandwidth and processor utilizations in terms of the simulation 
mode. 

Memory Space Utilization - A block of memory space will be consid- 
ered to be utilized 100% at a simulation step if it is assigned to 
an active job either in a load condition or processing condition 
during this step. Its utilization is considered to be zero at all 
simulation steps at which it is not assigned to an active job. The 
overall space utilization at a simulation step is then the ratio 
of the amount of space assigned to active jobs to the total amount 
of memory space. The mean space utilization over a number of simu- 
lation steps in an interval T is then the arithmetic mean of step 


utilizations in T. 
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Memory Bandwidth Utilization - Memory bandwidth utilization at a 
simulation step is simply the ratio of the number of accesses 
granted during this step to the total number available from the 
entire memory. The mean utilization of ^mory bandwidth over an 
interval T is the arithmetic mean of the step utilizations during 
this interval. 

Processor Utilization - A processor will be considered to be 
utilized 100% at a simulation step if it is not in an idle state 
and it is granted as many memory accesses as it requests from the 
memory. Thus processor utilization is actually the ratio of the 
number of accesses granted to the number of accesses requested for 
an active processor. Idle processors are considered to have a 
utilization factor of zero. The overall utilization of processors 
of a given type at a simulation step is then the ratio of the sum 
of the utilization factors for all the processors of this type to 
the total number of processors of this type in the system. The 
mean utilization of processors of a particular type over an inter- 
val T is then the arithmetic mean of the step utilizations in this 
interval. 

Although the model handles- jobs on an individual basis and prints 
out statistics concerning service to each individual job these individual 
statistics will not be presented in the problems to be considered due to 
the bulk of material that would be required. Thus we will concentrate 
on the overall responses to and characteristics of the total job set. 

In the simulations which were performed in this section no prece- 
dence relations were specified among the jobs in the input job sets. 
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each simulation run was made for 1300 steps , all jobs had an external 
priority of one and the following system parameters were left set as 


indicated; 


ICECSZ(CESZ) = 40 
ICON (CON) = 4000 
INl(Nl) = 20 
IFECSZ(FECZ) = 40 

IPCT(PCT) = 100 (scaled internally to 1.0) 

IPl(Pl) = 27 

IP2(P2) = 85 

IQl(Ql) = 15 

IQ2(Q2) = 8 

IQ3(Q3) = 3 

IR(R) = 800 

IS(S) = 0 

ITA(TA) = 300 (scaled internally to 3.0) 
MINBLK(MNBK) = 1024 
MMST = 64 
NI = 15 

MMSPF(MSPF) = 16 
MMAPF(MAPF) = 32 
RPOl =0.85 
RP02 = 0.30 
RP03 = 1.0 
EP04 = 10.0 
KP05 = 50.0 
BP06 ^ 3.0 
RP07 = 1.0 
RP08 = 1.0 
RP09 = 0.33333 
EPll = 0.0 


Problems to be Studied 


In this section five problems will be studied by means of the simu- 
lator. These problems include the following: 

(1) ffemory fragmentation 

(2) System resource utilization comparisons between the feedback 
and nonfeedback scheduler/ allocators. 

(3) Aggregate system response to the input job set and frequency 
of schedules as a function of total memory size. 

Relative comparisons of system response for various system 
configurations and numbers of recurrent jobs. 


( 4 ) 
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(5) The impact of TMR jobs on the memory allocation problem. 

Memory Fragmentation 

In the absence of some automatic hardware mapping scheme (and an 
elaborate memory protection device associated therewith) for mapping a 
logically contiguous name space into a noncontiguous absolute address 
space it is highly desirable to make memory allocations to each job from 
a single addressably contiguous block of storage locations. Memory frag- 
mentation is a condition whereby the available memory space becomes 
separated into many small noncontiguous blocks. Thus memory fragmenta- 
tion can, to a certian extent, thwart the ability to make allocations 
from single addressably contiguous blocks, especially large allocations. 

The simulation model coalesces blocks of storage as they are re- 
leased with any addressably adjacent available blocks. Scheduling is 
then done in small batches and as much of the available memory space as 
possible is allocated to jobs in the schedule that require memory. This 
method of operation has the advantage of choice for optimization over a 
scheme that reallocates the memory space as soon as it becomes available 
or as soon as there is a demand for it. If this latter option of immedi- 
ate reallocation were adhered to then the system would try to become a 
first-in first-served device. While first-in first-served devices are 
esthetically appealing for queues involving people, they do not lend 
themselves to optimization in the utilization of resources nor do they 
necessarily ensure fastest service to individual jobs in a computer en- 
viroment and can be atrocious in their appetite for system overhead, 
lor example, under a first-in first-served policy (policy but not in 
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fact realizable) the jobs in the system queue that are waiting for memory 
space would tend to be from the population requiring the larger amounts 
of space. Concomitantly the jobs releasing space would tend to be from 
the population requiring the smaller amounts of space. Thus, quite often, 
following release of space the system would search through the entire 
list of jobs that were waiting for memory without finding one that 
would fit into the released space. Therefore all three of the evils 
mentioned above are realized. 

It has been suggested [28] that the memory fragmentation problem 
is tolerable under conditions similar to those described here for the 
simulation model, however, no quantative figures are available. There- 
fore the simulator will be used to ascertain the amount of memory frag- 
mentation. Since in this regard we are more interested in the average 
utilization of memory space when there is great demand for it let us ad- 
just the input demands on the system’s memory space such that it remains 
high at all times and observe the total amoxint of available storage space 
immediately before and after each new schedule. This may be done for 
several different average request sizes and dispersions relative to that 
of the total memory space. Actually a number of cases were observed con- 
cerning the fragmentation problem but the following two cases are typi- 
cal. 

Case 1 

Total number of recurrent jobs in the system = 40 

Each job’s memory space size from a uniform random distribution 
between 4 and 32 

Actual average request size = 21.7 
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The data shown in Fig. 6-1 was then obtained from five simulation runs 
with total space of 128, 192, 256, 320, and 384. A plot of this data is 
shown in Fig. 6-2. 

Case 2 

* Total number of recurrent jobs in the system = 40. 

Total memory size fixed at 256 
Job space size varying from job to job 
The data shown in Fig. 6-3 was then obtained from four simulation runs 
with job space size varying in the ranges of 12-24, 8-32, 4-64 and 
1-128. A plot of this data is shown in Fig. 6-4. 

The data of Fig. 6-1 and the curve of Fig 6-2 indicates that the 
portion of total space available immediately after schedules was almost 
constant and less than .05 for all five of the total memory sizes. 

From the data of Fig. 6-3 and the curve of Fig. 6-4 this same parameter 
varied in the range from approximately .04 to .12. The larger portion 
of total space available in the second case may be only partially 
attributed to the relative demand for space. This demand is roughly 
measured by the product of the average space requirement per job and 
the average number of jobs waiting memory before each schedule. However 
the system's ability to make maximum utilization of the total memory 
space is also controlled by the relationships between the space require- 
ments of the jobs and the sizes of the available blocks of space as well 
as whether or not the system is biased In favor of the smaller size jobs 
From the data of Fig. 6-3 it appears that the system was biased in favor 
of the smaller size jobs, especially in the case of the largest require- 


ments range . 
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Total memory space 



128 

192 

256 

320 

382 

No. of schedules 

30 

19 

16 

13 

10 

Av. no. of available 
blocks before schedule 

m 

3.58 

4.56 

B 

5.60 

Av. total available 
space before schedule 


101.10 

139.12 

mm 

224.2 

Av. no. of jobs waiting 
memory before schedule 

32.40 

31.53 

30.75 

28.77 

28.80 

Av. no. of available 
blocks after schedule 

2.55 

B 

3.38 

B 

4.10 

Av. total space after 
schedule 

5.22 


7.31 

B 

13.30 

Av. no. of jobs 
waiting memory 
after schedule 

29.73 

26.21 

23.94 

20.38 
1 

18.4 


Fig. 6-1 Tabulation of data concerning memory fragmentation — 

Job space requirements from uniform distribution between 
4 and 24 with mean * 21.7, varying total space. 





























1.0 

.9 

.8 
. 7 
.6 
.5 
.4 
.3 

.2 

.1 

0 



126 


MEM)RY SPACE REQUIREMENTS RANOS 



12-24 

8-32 

4-64 

1-128 

No. of schedules 

69 

74 

64 

28 

Av* space requirement 

19.33 

22.15 

38.75 

80.38 

Av, No. of available 
blocks before schedule 

4.0 

3.57 

2.83 

1.79 

Av. total available 
space before schedule 

115.80 

100.74 

95.17 

116.43 

Av. No. of jobs waiting 
memory before schedule 

5.84 

8.53 

21.44 

31.57 

Av. No. of available 
blocks after schedule 

3.55 

3.23 

2.47 

1.46 

Av. total space after schedule 

26.60 

30.25 

24.60 

9.68 

Av* No* of jobs 
waiting memory after 
schedule 

1.87 

5.30 

19.44 

29.50 


Fig* 6-3 Tabulation of data concerning memory fragmentation for 
four space requirement ranges, total memory size = 256, 
40 jobs 
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A - Portion of jobs waiting memory 
before each new schedule^ 

B Portion of jobs waiting memory 
after each new schedule* 

C - Portion of total space available 
before new schedule. 

D Portion ot total space available 
after new schedule. 



Total Space/Average Job Space 

Fig. 6-4 A plot of data concerned with memory 
fragmentation - Varying job space 
requirements, constant total space. 
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System Resource Utilization Comparisons Between the Feedback and Non- 
feedback Scheduler/ Allocators 

As mentioned before in sections I and II the system may be con- 
figured such that memory allocation and internal priorities of each job 
are influenced by goodness of fit in both space and bandwidth between 
requirements of jobs and an estimate of what is available from the main 
memory at the time of memory allocation* In making these comparisons a 
number of simplifications were made but the most notable ones were that 
the numbers of input /output operations for each job were adjusted such 
that these operations had a small influence on the overall system and 
that the memory space for each job was entirely within a single memory 
module. Four simulation runs each of 1300 simulation steps were then 
made with the system configurations and job characteristics listed in 
Fig* 6-5. The results of these runs are shown in Fig. 6-6. These results 
warrant some discussion. First of all, it should be pointed out that the 
nonfeedback configuration tends to be biased against jobs with large 
bandwidth requirements since if priorities of a large bandwidth job and 
a small bandwidth job are equal and' assuming large overall bandwidth 
demands then the program exe cuter will tend to grant memory accesses to 
the low bandwidth job in accordsuice with the number that it requests. 
Conversely, it will tend to grant memory accesses to the high bandwidth 
job in accordance with the priority of the high bandwidth job relative to 
that of other active jobs having space in the same memory module. Thus 
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Run Number 



a 

2 

— 

3 

4 

Number of CPUs 

IQH 

10 

9 

8 

CPU Speed 

1 

1 

1 

1 

Number of lOPs 

12 

12 

12 

12 

lOP Speed 

5 

5 

5 

5 

Number of Memory 
Modules 

10 

5 

3 

2 

Memory Module 
Speed 

16 

16 

16 

8 

Total Number of 
recurrent jobs 


40 

40 

40 

Number of job sets 

1 

2 

3 

4 

Job bandwidth 
requirements 



« 6xB^ 

.lxB_,3/20xB , 
.3 xB„,9/20*b” 

Job Space 
requirements 



1/3S„ 

1/4.S„ 


All speeds are In numbers of basic clock periods per cycle 
time of device ♦ 


Fig, 6-5 System configurations and job characteristics for comparisons 
between feedback and non feedback scheduler /allocators* 




























No. of Jobs per Memory Module 

fig. 6“6 System resource utilization comparisons 
between feedback and nonfeedback 
scheduler/allocato rs . 




with a fixed direct relationship between bandwidth requirements and total 
number of accesses for job completion the low bandwidth jobs will tend 
to run in a shorter length of time than the high bandwidth jobs. With 
approximately equal populations of high and low bandwidth jobs the net 
result is that the low bandwidth jobs are run with higher frequency than 
the high bandwidth jobs, especially with large total demand on the sys- 
tem. If a CPU is not idle during some period of time T and is granted 
all the memory accesses that it requests during this interval T then we 
must assume that its utilization is 100% during this interval. This 
explains the higher utilization of CPUs during all four runs for the 
nonfeedback configuration* The memory bandwidth utilization was higher 
for the feedback configuration in all runs except run //I. In run #1 
there was no real choice for bandwidth matching since all the jobs had 
the same space and bandwidth requirements* The number of executions for 
each job was not the same for the feedback and nonfeedback configurations 
and since the jobs did not have the same processing shape curves a small 
difference in bandwidth utilization can be expected during this run. 

Memory bandwidth utilization is a rough measure of the total pro- 
cessing done by the system if relative service to individual jobs can 
be ignored and it is assumed that each program executed by the system 
has been optimized for the particular system configuration. Alternately, 
inefficiencies inherent in particular programs need not be considered 
in relative comparisons between the feedback and non feedback versions 
of the scheduler/allocator since these could theoretically be removed 
in either case. Under these assumptions the feedback configuration appears 
to have performed more work than the nonfeedback version. 
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Aggregate Sys tem Response to the Job Set and Frequency of Schedule 

as a Function of Total Memory Size 

The total space in the main memory appears to have a considerable 
influence on the response of the system to individual jobs as well as the 
amount of overhead required to keep the system utilization at reasonably 
high levels. The frequency at which new schedules must be initiated in 
order to attempt to maintain some level of resource utilization is a 
fairly good relative indicator of overhead associated with scheduling 
jobs and allocating memory space. For the present problem three groups 
of four sets of four simulation runs were made corresponding to a total 
space that was roughly .1, ,2, .4 and .8 times that required by all the 
recurrent jobs in the system. The system's total memory bandwidth was 
held constant at approximately ,52 times the amount that would be de^ 
manded if all jobs were executed at their desired repetition rates. In 
this manner the total demands on the system were maintained at a high 
level throughout each run. In each set of runs four runs were made cor- 
responding to 2, 4, 8, and 16 memory modules. Total memory speed and 
space was held constant in each of the four runs of a set by adjustment 
of module size and speed. This resulted in module speed being directly 
related to size. This is of course contrary to what one would expect in 
regard to maximum capability from real memory modules all of the same 
technology but of different sizes. However, we may consider the largest 
and fastest memory modules to be the highest quality and consequently 
the highest cost. Then by substituting larger numbers of smaller and 
slower modules we may observe the changes in the system's performance. 
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If at each simulation step each job’s memory access requests are 
distributed over its total memory space in a linear manner then in those 
instances in which the mean job size is larger than the space of a raemory 
module the results are not valid* This is true because real computer 
programs are far from random in regard to the sequence in which accesses 
are made to locations of their memory space* In fact, the success of 
virtual memory systems Is predicated on the ’locality of reference’ [25] 
phenomenon of real computer programs. Thus if the contingencies men-- 
tioned above actually held then the speed at which a processor could 
obtain accesses from a single memory module would be an upper bound on 
the speed of execution of a particular program. This problem could be 
overcome somewhat by interleaving the memory to a depth such that the 
space spanned by each interleaved set of modules is greater than the 
mean job space requirement* In the present problem for those cases in 
which the mean job size is actually larger than module size runs will be 
made for both random and sequential distributions of access requests so 
that comparisons may be made* 

For the first group of four sets of four runs each, the bandwidth 
requirements were matched to the amount of bandwidth available from the 
memory space occupied by the average size job* By holding total avail- 
able memory bandwidth fixed and increasing total memory space, the amount 
of bandwidth that is available to a job of a fixed size tends to decrease 
directly with total memory size. Thus by adjtisting the bandwidth require- 
ments of each job inversely in relation to total memory size the amount 
of bandwidth that is available to a job of the mean size should remain 
fairly well matched over all total memory sizes • In this manner we may 
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remove the effects of bandwidth availability to individual jobs on CPU 
utilization. Thus CPU utilization becomes an adjusted indicator of sys- 
tem thruput and we are able to observe the effects of space alone on 
this indicator. With more space more jobs may be in the memory at the 
same time and CPU utilization should increase as space increases to some 
point at which the number of jobs in the memory is somewhat larger than 
the number of CPUs. With a total memory size of sixty-four and a mean 
job size of sixteen the system may on the average have four jobs either 
being loaded or in execution. At a total memory size of 512 this average 
number is increased to thirty-two. However with the number of CPUs fixed 
at eight and the number of lOP^s at sixteen we should expect to see CPU 
utilization to range from something less than one-half to close to unity 
depending upon how high the system tries to mainteiin CPU utilization 
through rescheduling. 

For this problem we will assume that the total lOP load is light 
at all times- The result of all this is that the factor determining 
sytem thruput, as reflected in CPU utilization, should pass from a low 
value at the smaller memory size in which the CPUs can be utilized only 
lightly due to an insufficient nuniber of jobs in the memory to an asymp- 
totic high value in which more jobs* are in the memory than the fixed 
number of CPUs can adequately service. The system configurations and job 
characteristics for the present problem are shown in Fig. 6-7. The 
results for the first group of runs in which job bandwidth requirements 
were matched to that available from the space occupied by the mean size 
job Is shown in Fig. 6-8 through Fig. 6-13. 
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For the second group of runs the bandwidth requirements were held 
fixed at the value that was used for the smallest memory size in the 
first group of runs. The results for this group of runs are shown in 
Fig. 6-14 through Fig. 6-18. In the third group of runs the bandwidth 
requirements were allowed to vary from job to job over the range from 
,06 times the memory’s total bandwidth to ,25 times the memory's total 
bandwidth. The results for this group of runs is shown in Fig. 6-19 
through Fig. 6-24. In Fig, 6-8 the CPU utilization curve has the ex- 
pected shape. It indicates that a total memory size in the range of 
256 is adequate for the assumed number of CPUs and mean job sizes. Com- 
parisons between Fig. 6-9 and Fig. 6-15 show that the lowering of band- 
width requirements directly with total memory size had a considerable 
influence on the steepness of the slope of the bandwidth utilization 
curves of Fig. 6-9 but had little effect on the space utilization curves. 
The downward slope of CPU, memory bandwidth and job completions between 
memory sizes of 256 and 512 in Fig. 6-14, Fig. 6-15, and Fig, 6-16 was 
caused by localized bandwidth limiting due to packing of a disportionate 
number of jobs into one end of the memory. The effects of this phenome- 
non are greater for larger numbers of smaller memory modules as is indi- 
cated by these curves. The relatively large amount of space available 
immediately after schedules in Fig. 6-17 for the largest total memory 
size is due to the smallness of space demand relative to the amount that 
is available and is not a true indicator of the fragmentation problem. 
Sequential distribution of access requests, as indicated by the dashed 
lines, resulted in general in lower utilization of system resources. 
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(Number of Modules, Module Speed) 


Total Memory 
Size 

(2,8) 

(4,16) 

(8,32) 

(16,64) 

512 A 

1/16 

1/8 

1/4 

1/2 

MIX 

.568 

.568 

.568 

.568 

256 A 

1/8 

1/4 

1/2 

1 

MIX 

.785 

.785 

.785 

.785 

128 A 

1/4 

1/2 

1 

2 

MIX 

.915 

.915 

.915 

.915 

64 A 

1/2 

1 

2 

4 

MIX 

.980 

— i 

.980 

.980 

1 

.980 


Module speed is in basic clock periods per module cycle period. 


A is the bandwidth requirement of each job expressed in units of the 
bandwidth of a memory module, Bjjj. 


MIX' iS' -the fraction of short instructions for each job. In these runs 
a short instruction requires eight CPU cycle periods and a long instruc- 
tion requires 256 CPU cycle periods. 


Number of CPUs = 8, Number of lOPs = 16 
Number of recurrent jobs = 40 
Job space range = 4-24, Mean = 16,3 
Desired mean job interarrival period = 275 
Mean number of memory accesses CPU == 7500 
per execution: lOP = 2750. 


Mean job bandwidth requirement: 

Group #1 “ ( Mean space requirement) 

Total space 
(see above listing) 


Total 
X Memory 
bandwidth 


Group #2 


.25 X total memory bandwidth 


Group #3 


varying over range .06 to ,25 times 
total memory bandwidth 


Fig. 6-7 System response as a function of total memory size ^ 
System configurations and job characteristics. 
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A a E 2 memory modules 

B a F 4 memory modules 

C a G 8 memory modules 

D a H 16 memory modules 
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uf / Dashed lines Indicate sequential 

/ / distribution of access requests 


Total memory size 


Fig. 6-8 System response as a function of total 
memory size with matched bandwidth 
requirements - CPU and lOP utilizations 


Utilization 



Job completions as a fraction of demand 


A 2 

modules 

B 4 

modules 

C 8 

modules 

D 16 

modules 

Dashed 

lines indicate sequential 

distribution of access requests. 


Total memory size 


Fig* 6-10 System response as a function of total memory 
size with matched bandwidth requirements - Jo 
completions. 


Ratio of number of Early or Late Jobs to No. Completing 
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A a E 2 mods 
B a F 4 mods 
C a G 8 mods 
D a H 16 mods 



Total memory size 


Fig, 6“11 System response as a function of total memory 
size with matched bandwidth requirements - 
Late and early jobs. 



0 64 128 256 512 

Total Memory size 


Fig. 6'^12 System response as a function of total 

memory size with matched bandwidth requirements - 
Available space before and after schedules. 


Ratio of number of simulation steps between schedules to memory size 



Total memory size 

Fig. 6-13 System response as a function of total memory 
size with matched bandwidth requirements - 
Frequency of schedules • 


Utilization 
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Total Memory size 

Fig. 6-14 System response as a function of total memory 
size with constant bandwidth requirements - 
CPU and lOP utilizations • 


Utilization 




Dashed lines indicate sequential 
distribution of access requests. 

Bandtfldth 



Total memory size 


Fig. 6--15 System response as a function of total memory 
size with constant bandwidth requirements - 
Memory space and bandwidth utilizations. 


Job completions as a fraction of demand 



64 128 

Total memory size 


Fig- 6-16 System response as a function of total memory 
size with constant bandwidth requirements - 
Job completions^ 


Portion of total memory space available 
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Total memory size 


Fig. 6-17 System response as a function of total memory 
size with constant bandwidth requirements - 
Available space before and after schedules. 
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6-^18 System response as a function of total memory 
size with constant bandwidth requirements ^ 
Frequency of schedules. 
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A a E 2 modules 
B a F 4 modules 
C a G 8 modules 
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Total memory size 

Fig, 6^19 System response as a function of total memory 

size with widely dispersed bandwidth requi remen ts^ 
CPU and lOP utilizations. 
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Fig. 6^21 System response as a function of total memory 

size with widely dispersed bandwidth requirements^ 
Job completions- 


Ratio of number of early or late jobs to number completing 
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Fig* 6-22 System response as a function of total memory 
size with widely dispersed bandwidth 
requirements - Late and early jobs- 


Portion of total memory space available 




Ratio of number of simulation steps between schedules to memory size 



Dashed lines indicate sequential 
distribution of access requests^ 
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Fig. 6-24 System response as a function of total memory 
size with widely dispersed bandwidth 
requirements - Number of steps between 
schedules. 
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Relative Comparisons of System Response for Various System Configurations 
and Numbers of Recurrent Jobs 

In this problem two sets of runs were made. In the first set of 
runs the memory bandwidth was adjusted to be approximately five and 
one-half times that required by the job set based on the numbers of 
jobs, desired interarrival times and total memory accesses. In the 
second set of runs the memory’s total bandwidth was adjusted to be 
approximately seventy percent of desired total demand. Both sets of 
runs were made with both feedback and nonfeedback scheduler/ allocators 
for the system configurations shown in Fig. 6*^25 • The results for these 
sets of runs are shown in Fig. 6-26 through Fig. 6-35. From these figures 
it is apparent that the feedback configuration tends to select the jobs 
requiring larger amounts of space and bandwidth if relatively larger 
amounts are available and jobs of smaller space and bandwidth require- 
ments if relatively smaller amounts are available, i.e., it works approxi- 
mately as it should. However, it tends to deviate considerably from the 
dictates of external priority even under light demands* A certain amount 
of this tendency is to be expected since maximizing resource utilization 
is somewhat incompatible with response to individual job demands. Never- 
theless the feedback configuration appears to have performed better than 
the nonfeedback configuration in the limited bandwidth availability case. 
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Total memory size 




64 

128 

192 

256 

Number of CPUs 

1 

2 

4 

6 

8 

Nxomber of lOPs 

2 

4 

8 

12 

16 

Number of Memory Modules 

2 

4 

8 

12 

16 

Number of recurrent 
jobs 

5 

m 

20 


40 

Job completion demands 

116 

^1 

71 

35 

21 

Mean total access demands 
per step 

176.41 

358, 71 

706.41 



Bandwidth large 

1000 

2000 

4000 

6000 

8000 

A. v<iJ-Xciux XX uy ■■ " 

per step limited 

125 

250 

500 

1 

750 

1000 

Job space requirements 
Range 


4000 

to 

24000 

4000 

to 

24000 

4000 

to 

24000 


Actual mean space 
Requirement per job 

15.6 

20.3 

18.3 

17.0 

16.8 


Fig. 6-25 Relative comparisons of system response for various 
system configurations and number of recurrent jobs - 
System configurations and job characteristics. 


































Utilization 
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CPU Utilization 



Total memory size 

Fig* 6-26 Relative comparisons of system response for 
various system configurations and ntimber of 
recurrent jobs, large bandwidth availability - 
Processor utilizations* 


Utilization 
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^ Feedback 
a Nonfeedback 



.2 


Memory bandwidth utilization 



0 


32 


\ ~l 

64 i: 

Total memory space 


Fig. 6-27 Relative comparisons of system response for various 
system configurations and number of recurrent jobs, 
large bandwidth availability -- Memory space and 
bandwidth utilizations- 


Mean portion of total space available 


NFBK 



Immediately before schedules 


Iiiiniedi ately after schedules 


32 64 

Total memory size 


Fig, 6--28 Relative comparisons of system response for 
various system configurations and number of 
recurrent jobs ^ large bandwidth availability - 
Memory space availability. 


Ratio of number of job completions to completion demands 
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, Feedback 
Nonfeedback 



Total memory size 


Fig. 6-29 Relative comparisons of system response for 
various system configurations and number of 
recurrent jobs, large bandwidth availability - 
Job completions. 


Ratio of number of simulation steps between schedules 
to total memory size t 10 
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Total memory size 


Fig* 6-- 30 Relative comparisons of system response for 
various system configurations and number of 
recurrent jobs^ large bandwidth availability - 
Number of steps between schedules. 




Fig. 6-31 Relative comparisons of system response for various 
system configurations and number of recurrent jobs, 
limited bandwidth availability - Processor utiliza- 
tion. 


Utilization 




Mean portion of total space available 
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Fig, 6—33 Relative comparisons of system response for 
various system configurations and number of 
recurrent jobs, limited bandwidth availability - 
Memory space availability. 
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Fig* 6^34 Relative comparisons of system response for 
various system configurations and number of 
recurrent jobs, limited bandwidth availability 
Job completions* 
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.4 

- 

- 

.2 ^ 

0 

0 

Fig, 


^FBK 
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6-35 Relative comparisons of system response for 
various system configurations and number of 
recurrent jobs, limited bandwidth availability - 
Simulations steps between schedules* 
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The Impact of TMR Jobs on the Memory Allocation Problem 

One method for improvement of reliability is through triple modular 
redundancy. [29], [30] The model does not assuine that there is a fixed 
configuration of the memory into three or more parallel segments into 
which the three components of a TMR job are placed and executed in a 
lock-step fashion. The model assumes a much more general situation in 
that both TMR and SIMPLEX jobs may be in progress in the system simul- 
taneously and that allocations of memory to TMR jobs can be made in 
triplicate from any available memory blocks so long as the three corre- 
sponding allocations to a job is made from three disjoint sets of memory 
modules. This creates a number of problems in the allocation of memory 
and assignment of processors to the TMR jobs. With factors of external 
priority equal for both SIMPLEX and TMR jobs the TMR jobs are at a very 
distinct disadvantage in being able to obtain all the resources that 
they need, especially with a large overall demand and a limited amount 
of resources. 

For this problem three sets of runs were made. In the first set 
all the jobs were TMR. In the second set approximately one-“half of the 
jobs were TMR and in the third set one- third of the jobs were TMR. The 
total number of recurrent jobs was fixed at forty for all three sets of 
runs. In each set of runs total memory size and bandwidth were fixed 
but the numbers and speeds of memory modules were varied. In order to 
keep space demands nearly constant the mean space requirement of jobs 
was adjusted so that the run with the largest fraction of SIMPLEX jobs 
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had the largest mean job requirement for space* For all three sets of 
runs the number of memory accesses required for job completion was adjust- 
ed for a small value and bandwidth requirements were adjusted for a high 
value in order to complete a larger nximber of jobs so that a large number 
of allocations would be made. 

The system configurations and job characteristics are listed in 
Fig. 6-36. The results are shown in Fig. 6-37 through Fig. 6-42, These 
figures indicate that the memory fragmentation problem tends to be 
greater with larger percentages of TMR jobs. However, Fig. 6-42 indicates 
that service to TMR jobs relative to that of SIMPLEX jobs tends to be 
poorer for relatively smaller percentages of the numbers of TMR jobs in 
the system. 
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ALL TMR 

h TMR 


Job space reqxiirement 
range 

4-24 

6-36 

8-43 

Mean job space 
requirement 

16.8 

25.1 

29.8 

Actual number of TMR 
jobs 

40 

22 

14 

Total space 
requirement 

2016 

2108 

2026 

(Numbers of Modules, 
speeds of Modules) 

(3,6) (6.12). (9,18), (12,24), (15,30) 

Total memory size 

360 

Number of CPUs 

10 

Number of lOPs 

15 


Fig. 6-36 The impact of TMR jobs on the memory allocation 
problem — Job characteristics and system 
configurations . 
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1.0 



(Number of Modules , Module Speed), Module speed is in basic 
clock periods per module cycle period. 


Fig. 6-37 The impact of TMR jobs on the memory allocation 
problem - Processor utilization. 
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A a D - all TMR 
B a E - one-half TMR 
C a F - one- third TMR 



(3,6) (6,12) ' (9,18) (12,24) (15,30) 


(Number of Modules, Module speed). Module speed is in basic 
clock periods per module cycle period- 


Fig. 6-38 The impace of TMR jobs on the memory allocation 

problem - Memory space and bandwidth utilizations. 


Number of simulation steps between schedules 
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(Number of Modules, Module Speed), Module speed is in basic 
clock periods per module cycle period. 


Fig. 6-39 The impact of TMR jobs on the memory allocation 
problem - Number of simulation steps between 
schedules. 
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(Number of Modules, Module Speed), Module speed is in basic 
clock periods per module cycle period. 


Fig. 6-40 The impact of TMR jobs on the memory allocation 
problem - Number of jobs completed. 


Ratio of amount of available space to total memory size 
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(Number of Modules, Module speed), Module speed is in 
basic clock periods per module cycle period. 


Fig. 6^41 The impact of TMR jobs on the memory allocation 
problem - Available space immediately before 
and after schedules- 


Number of TMR job completions 

(Total number of completions) x (Fraction of TMR jobs) 



(3,6) (6,12) ' (9,18) (12,24) (15,30) 

(Number of Modules, Module Speed), Module speed is in 
basic clock periods per module cycle period. 


Fig. 6-42 The impact of TMR jobs on the memory allocation 
problem - Relative numbers of completions for 
TMR jobs* 



VII. DISCUSSION AND CDNCLUSIONS 


A simulation model for a multiprocessor computer has been developed 
in order to study a few of the nyriad of interacting problems that are 
associated with such systems. Of necessity, the model is a highly sim- 
plified embodiment of one view of what are the important constituents 
of such a system in regards to the types of problems to be investigated. 
These problems were mainly concerned with the effects of the aggregate 
characteristics of input job sets to the system on the output of the 
system as well as the effects of Interactions of hardware processors in 
simultaneously using a common memory having limited space and bandwidth. 

Although the model performs many of the system executive functions 
of a real multiprocessor, the impact of executive or monitor type pro- 
cessing does not show up explicitely in the simulation results since 
this processing is done essentially between simulation steps. Instead, 
the main thrust of this paper was directed at a stratum of problems lying 
at least one level below some neb ulotjs but ever present executive system. 
Nevertheless, the problems actually investigated form a large part of the 
basic enviroment within which an executive processing system must operate. 

The basic xmderlylng assumptions for the simulation model were pre- 
sented in Chapter II and some typical problems suitable for Investigation 
by means of the model were presented in Chapter VI. Due to the granular 
manner, in reference to time, in which the model simulates the execution 
of programs the effects of access conflict, which occur when two or more 
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processors attempt to simultaneously use a common memory module, do not 
show up in the simulation results. Thus in Chapter III this problem was 
studied by analytical means. This analysis en^loyed a modified binomial 
approach in which the sequential instruction by instruction execution of 
computer programs, reflecting remembrance by processors of the last 
memory access request not yet granted, and mean bandwidth requirements 
were taken into account. The results of this analysis showed that when 
the sum of the mean bandwidth requirements of all jobs being simulta- 
neously executed from a common memory module is equal to the bandwidth 
of the module, access conflict can cause an overall slow down ranging 
from approximately seventeen percent with three processors to a slowly 
decreasing value of approximately eleven percent for sixteen processors. 

A multiprocessor is quite often viewed as a large and powerful com- 
puting system in which several processors simultaneously share a common 
memory. Thus this common memory and the interactions between hardware 
processors in simultaneous use of the memory is of central importance in 
such a system. Increases in efficiency of use of the memory of only a 
small fraction can represent a large amount of computing power. The 
model attempts to increase the use of the memory’s bandwidth by matching 
individual job requirements for space and bandwidth with that available 
from the memory at the time of allocation. Therefore in Chapter IV this 
problem was studied in order to determine expected maximum gains that a 
simple bandwidth matching shceme of the form assumed by the model could 
obtain. This analysis indicated that the best that can be obtained over 
a random placement scheme ranges from approximately twenty percent for 
two jobs being simultaneously executed from a common memory module to ^ 
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approximately six percent when twelve to sixteen jobs are simultaneously 
executed from a common memory module under the assunq)tions that were 
listed for space and bandwidth requirements in that section. 

In Chapter V a processor to memory interconnection and conflict 
resolution scheme was developed. Though not a perfect realization of 
the stated objectives for such a scheme, the one developed in that sec- 
tion is believed to be viable in a real priority driven multiprocessor. 
It is also believed that this scheme may easily be modularized for reli- 
ability enhancement purposes or expansion of an existing system. 

In Chapter VI the simulations indicate that the memory fragmenta- 
tion problem is not as severe as might at first be expected. Thus in a 
real system relocation of programs so as to collect the small unusable 
blocks into larger blocks of storage may not be necessary if the small 
overhead associated with the fragmentation that was observed concerning 
this problem is tolerable. 

The simulations indicate that the feedback scheduler/ allocator 
scheme can increase memory bandwidth utilization by as much as ten to 
fifteen percent over a nonfeedback scheme under conditions for which 
real choices actually exist for bandwidth matching. Thus the values 
determined in Chapter IV appear to be supported by the simulation re- 
sults. The increased bai^dwidth utilization is quite often accompanied 
by a distortion in relative service to individual job demands from that 
specified by external priority. In situations in which no real choices 
actually exist for bandwidth matching there appears to be no substantial 
differences between the feedback and nonfeedback scheduler/allocators. 



178 


Memory interleaving would obviate the need for the feedback method 
of bandwidth matching but interleaving of memory tends to destroy reli- 
ability potential. Therefore interleaving was not considered in this 
paper. It should be pointed out that the method of bandwidth matching 
described in the model only assumed knowledge of an instruction mix para- 
meter associated with each job. In this regard it should be contrasted 
with other methods for bandwidth matching that have recently been de- 
scribed by Covo [31] and by Kruzberg [32]. 

The simulations point out quite clearly that , aside from differ- 
ences in cost and reliability, bigger and faster is better in regard to 
memory modules. This is due to the fact that an individual job's peak 
demands for bandwidth have a better chance for being fulfilled under 
conditions of packing of jobs into one end of the memory. This packing 
is desirable under generalized conditions in which job space require- 
ments are widely dispersed and it is thereby essential to keep as much 
of the total available space as possible in one contiguous block so 
that the demands for large contiguous blocks of space have a high chance 
for being met. 

The memory fragmentation problem is worse for all TMR or a mixture 
of TMR and SIMPLEX jobs than for the all SIMPLEX case but it does not 
appear that it is three times as bad as for the all SIMPLEX case. Like- 
wise, service to the TMR jobs in a mixed enviroment is considerably less 
than to SIMPLEX jobs but the difference is not as great as the difference 
between resource requirements. For example, in the simulation case in- 
volving approximately equal numbers of TMR and SIMPLEX j obs the SIMPLEX 
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jobs received approximately 1.2/. 8 = 1.5 times the service that the TMR 
Jobs obtained. 

There seems to be few universal truths associated with a multipro- 
cessor system but one observation that may come close to being one is 
that a key factor in determining a successful multiprocessor system is 
to provide a large enough memory so that enough jobs may be loaded Into 
the memory at one time such that system resources may be utilized at high 
levels for relatively long periods of time between executive processing. 
This observation is supported by the relationships between frequency of 
.schedules and total. memory size in the simulations that were performed 


in this paper. 
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APPENDIX A 


Command and Data Structures . Program 
Descriptions and Bandwidth Adjustment 


Command and Data Format 
$)4lNITiJSYS 

causes SETUP routine to be called. System parameters are entered 
immediately after this card as follows: 

« yl 
= y2 

= yN 

Where XXXN is a 1 to 4 letter mnemonic symbol for the parameter 
and yN Is the value to be assigned to the parameter. 

signals the end of parameter initialization. 

$UENTR16D1ST 

causes STAT routine to be called; data must be entered immediately 
after this card as follows: 

NAME = XXXX 

where XXXX is some 1 to 4 letter mnemonic to be assigned to the 
first distribution curve. 

DATA = Dj^, D 2 , • • • > ®41* 

up to 41 data points may be entered. Data points must be separated 
by either a blank or a comma and may be real or integer. 

The above name and data pairs may be repeated for as many as a 
total of 25 distributions. 

$}JEXIT]iJDIST 

signals the end of distribution curve entry processing. 

$lAENTRjJBST 

causes BULK routine to be called. Data must be entered immediately 
behind this card as follows: 


XXXI 

XXX2 


XXXN 


*END 
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name » *XXX1, XXX2, . . XXX7 

The asterisk denotes a periodic program, XXXN is a 1 to 4 letter 
maemonic 

N = 1 indicates job name 

N » 2 indicates processing shape curve name 
N = 3 through 7 indicates predecessors* 

All entries must be separated by commas. 

$|iENDj4BL0C 

signals the end of common statistics job block. 

SEED = N 

seed value for a random number sequence. 

FCTN = XXXI, XXX2 XXX9 

Distribution curve names to be used in generating the job 
characteristics data. 

FMAX = XI, X2, . . . , X9 

Real or integer values which designate the maximum allowable 
values for each parameter. 

FMIN = XI, X2, . . . , X9 

Real or Integer values which designate the minimum allowable 
values for each parameter. 

This card may be followed by more cards of the type between the 
NAME card following the $ ENTR BST card and FMIN for a different 
set of job characteristics. 

$i4exitii;bst 

signals the end of bulk storage table processing. 

$t$ERASt5MJDT 

causes the arrays JOVF, JM2 , MNAME and FLAG to be set to zero by 
the CLEAR routine. 

$liPRNTb=VMJDT 

causes a print out of time and the information in the J-TABLE by 
PRNT. 

$jiENTR){MJDT 

causes the ENTR routine to be called. Names of jobs must be 
entered immediately after this card as follows: 

NAME = XXXI, XXX2, . - . , XXXN 

where XXXM is the job name of each Job to be entered into the 
J-TABLE. 
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*END 

signals the end of Job entry processing, 

vhere 1 ^ N ;< 4, causes execution of simulation run. N is the 
number of time options which the user wishes to specify. These 
options are as follows: 

STIM = Simulation start time. Default value =0.0 
FTIM = Simulation finish time. Default value = 10.0 
BELT = Simulation time increment. Default value = 0.01 
PDEL = Simulation print time increment. Default value = 0.5 

If no values are to be specified then the L*N is omitted and the 
default values will be used. The optimal values are entered as 
follows: 


PDEL=A 

DELT=B 

STIM=C 

FTIM=D 


The order of entry does not matter but there must be the same 
number of options specified as the value of N. 


$ Hi STOP 


This signals the end of the simulation. 

Any data card whose first two punched characters are ’C*' is 
considered to be a comments card and is not processed by the 
simulator. These cards may be placed anywhere in the data deck 
before the $]iST0P card. 

Data cards may be continued by placing an asterisk in card 
column 80, 

If other runs are to be made with some of the jobs already 
generated then before the $ STOP card place the following 
command and data cards: 

$i(lNlT|5SYS 

New Parameter Values 

$>JERAS14MJDT 

$)iENTRUMJDT 
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jobs to be entered 
*END 

$KSXEQ15S1MN14L*N 
time parameters 


$jjSTOP 


Common Blocks 


BLKl 


ELEMENTS: 

lASK, IDSH, LIND(33), LINA(33), IBLK, IDLE, lEQL, IDIST, INAME, 
IDATA, MJDT, IBST, lEXIT, IFLD 

HOW USED: 

Used in conjunction with inputting and outputting of error 
messages or for control purposes. These elements do not enter 
into any calculations. 

WHERE USED: 

Initialized in BLOCK DATA subroutine and used during job genera- 
tion and by the group of programs referred to as the job 
generator. These include MAIN, SETUP, SECHEK, ICARD, BULK, 

STAT, PENT, CLEAR, and ENTR. 


BLK2 


ELEMENTS: 

IWRD(IOO), FLD(50) 

HOW USED: 

Used to input all data to MAIN and any other routines that call 
ICAED. IWRD holds alphabetical data and FLD holds numerical 
data. 

WHERE USED: 

Initialized by ICARD and used by MAIN, SETUP, ICARD, BULK, STAT, 
AND ENTR. 
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BLK3 


ELEMENTS: 

IDrST(25), F(25,41), NDIST 
HOW USED; 

IDIST holds names of distributions whose data is contained in 
F. F holds the data for the distribution curves. NDIST is the 
number of distributions in F and may not exceed 25. 

WHERE USED: 

Used by any routine needing access to any of the distributions. 
These include the following; 

MAIN, BULK, PRNT, RECHEK, SHAPE, HLS, NORPRB, and PEX. 


BLK4 


ELEMENTS: 

(NAME(75,8), DATA(75,9) ,NJOB) 

NAME array is sometimes referred to as the bulk storage table. 
It holds the following information about attributes of each 
job 

NAME (* , 1) — periodic/aperiodic 
NAME(*,2)— job name 
NAME(*,3) — processing curve name 
NAME (* , 4-8) — predecessors 

DATA array holds basic numerical descriptive data for each job in 
the following order: 

EP — external priority 

TMR/SIMPLEX--type job 

CR — main memory space requirement 

I-O — ^number of main memory accesses for I/O processing 

NI — number of main memory accesses for CPU processing 

MIX — proportion of short instructions 

RE. — repetition period (periodic jobs) 

lAT — ^mean inter-arrival period (aperiodic jobs) 

DVT — not used 


NJOB contains the number of jobs in NAME array. 
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HOW USED; 

Method of use is expl^dlned under each entry above 
WHERE USED; 

used by the following programs in the job generator group: 
MAIN, BULK, RECHEK, CLEAR, ENTER 


BLK5 


ELEMENT: 

SET 

HOW USED: 

used to signal condition return codes from subroutine calls 
in the job generator group. 

WHERE USED: 

MAIN, SETUP, BULK, STAT, PENT, RECHEK, CLEAR ENTR 


BLK 6 


ELEMENT : 

MNAME(8,64) 

HOW USED: 

used to hold names of jobs that are in the J-Table (J(27,64) 
in BLK7) 

WHERE USED: 

PRNT, RECHEK, CLEAR, and ENTR 


BLK7 


ELEMENT: 

J(27,64) Aliases JM2(27,64), JM(27,64) 

HOW USED: 

Holds the description and current status of all jobs that are 
to enter into the current run. The elements of this array are 
used as follows: 


J(l.N) 

1-7 

8-15 

Job name (index in MNAME) 

Index of memory block in MALC for this job 

J(2,N) 

ist 

Predecessor 

J(3,N) 

2 nd 

Predecessor 

J(4,N) 

3 rd 

Predecessor 
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J(.5,N) 

4 th 

Predecessor 

J(. 6 ,N) 

1-7 

1 ®*^ 

successor 


8-14 

2 nd 

successor 

J(7,N) 

1-7 

3 rd 

successor 


8-14 

4 th 

successor 


J( 8 ,N) Time of last execution 

J(9,N) Number of memory accesses required in CPU mode* 

J(10,N) 1-7 Instruction mix 

8-15 Internal priority 

J(11,N) 1-10 Mean number of memory access requests per simu- 

lation step while in CPU mode. 

11-15 Processing shape curve 

J(12,N) 1-10 Standard deviation for the number of access 

requests at each simulation step while in the 
CPU mode 

11-15 External priority 

J(13,N) 1-10 Mean number of memory access requests per simu- 

lation step while in I/O mode. 

11- 15 not used 

J(14,N) Repetition period if periodic; mean interarrival time 
if aperiodic 

J(15,N) Number of memory accesses for I/O operations not 
including program loading. 

J(16,N) Number of active simulation steps 

J(17,N) 1-11 main memory space 

12- 15 most significant four bits of 3^^ memory block 

index in MALC. 


J(18,N) completion count 
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JC19.N) 1-8 Index of 2®^ memory block in MALC 

9-12 Least significant four bits of Index of 3^^ 
nentory block In MALC 

J(20,N) Estimated minimum processing time excluding load time 

J(2l,N) 1-10 Standard deviation for number of memory access 

requests while in the 1/0 mode 

11-15 not used 

J(22,N) Field overflow indicators 

Bit 1 Predecessors 

Bit 2 successors 


Bit 3 time of last execution completion 
Bit 4 number of memory accesses in CPU mode 
Bit 5 Repetition period 
Bit 6 memory modules 
Bit 7 main memory space 
Bit 8 memory block index 
Bit 9 completion coiint 
Bit 10 target time 
Bit 11 next I/O interrupt 
Bits 12—15 not used 
J(23,N) memory preference factor 

J(24,N) address of first overflow block in overflow area 

J(25,N) target time 

J(26,N) next I/O interrupt point 
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JC27,N) Job Status 

Bit 1 ready 

Bit 2 initiated 

Bit 3 waiting CPU 

Bit 4 waiting lOP 

Bit 5 waiting storage space 

Bit 6 Holding CPU 

Bit 7 Preempted of CPU 

Bit 8 mode, 0=CPU, l=IOP 

Bit 9 per iodic /aperiodic 

Bit 10 resident in main memory 

Bit 11 TMR/ SIMPLEX, 1=TMR 

Bit 12 waiting I/O completion 

Bit 13 In Future Events Chain 

Bit 14 In Load State 

BLK8 

ELEMENT: 

ICLK alias TIME 
HOW USED: 

Holds the current simulation step number 
WHERE USED: 

MAIN, RECHEK, FEC, CEC, HLS, LLS, PEX, NFMAL, MAPREF, and MASGN. 

BLK9 

ELEMENT: 

JOVF (32,32) Alias JOVFL(32,32) 
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HOW USED: 

Holds overflow from fields of the J-TABLE entries 

WHERE USED: 

CLEAR, and OVFLMG 

BLKIO 


ELEMENT: 

FLAG (64) 

HOW USED: 

Used by RECHEK to determine whether or not a job entry in the 
J-TABLE has been previously processed by ENTR Command 

WHERE USED: 

RECHEK and CLEAR 


BLKll 


ELEMENT: 

RTIME 

HOW USED: 

A time variable used during print out of the J-TABLE. 

WHERE USED: 

MAIN, and PRINT 


BLK12 


ELEMENT : 

PAEM(35)(in MAIN, SETUP, and RECHEK) in other routines the 
elements of FARM are referred to by the following names: 

ICECSZ, ICON, INI, IFECSZ, IPCT, IPl, IP2, IQl, IQ2, IQ3, IR, 

IS, ITA, MINBLK, MMCT, MMST, MTOTAL, NI, NIOS, NMODS, NPCL, NPCS, 
NCPUS, IFEDBK, IRNl, IRN2, IRN3, IRN4, IRN5, IRN6, 1RN7, IRN8, 
IRN9, MMAPF, MMSPF. 

HOW USED; 

The integer parameters of the system are contained in this block, 
thus they may be initialized from the input stream at the 
beginning of a set of runs. Any parameter changes for succeed- 
ing runs must be made from the input stream prior to that run. 

The parameter maintains the value of its last specification. 

The individual elements are used in the following manner. 
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ICECSZ — notifies all routines of the current size of the 
current events array. Must be less than or equal to the 
size specified (N) in a dimension statement for ICEC (*,N). 

ICON — specifies the number of basic clock periods per simula- 
tion step, 

INI — a constant used by LLS in comparison with number of I/O 
accesses to be done at I/O interrupt to help determine 
whether job can retain CPU. 

IFECSZ — ^notifies all routines of the current size of the 

future events array. Must be less than or equal to the size 
specified (N) in a dimension statement for IFEC(N,*). 

IPCT — ^no. of basic clock periods per CPU cycle period. 

IPl — a constant used by CEC in comparison with external 
priority of a newly arrived Job to determine whether or 
not a new schedule should be called for. 

IP2 — a constant used by LLS in comparison with job internal 
priority at I/O interrupt points to help determine whether 
or not job should retain its CPU(s). 

IQl — a constant used by CEC in comparison with number of 
scheduled entries in the current events chain to determine 
whether or not to call for a new schedule. 

IQ2 — a constant used by HLS and LLS in comparison with the 
number of lOPs already assigned to load operations to 
determine whether or not more jobs in the load state may 
be started. 

IQ3 — a constant used by LLS in comparison with the number of 
scheduled jobs in the current events chain to determine 
whether or not a job may retain its CPU upon I/O interrupt 
initiation. 

IR — a constant used by CEC in comparison with the mean band- 
width requirement of a completing job to determine whether 
a new schedule should be called for. 

IS — a command for writing out various arrays for debugging 
purposes , 

BIT#1=1 causes the non zero entries of the allocated and 
available lists (MALC and MAVL) of main memory storage 
blocks to be written out upon departing from the memory 
allocation routines MAPREE or NFMAL. 
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BIT#2=1 causes PEX to write out the array NAA which 
contains the current estimate of the available bandwidth 
from each memory module and HAS which contains the amount 
of available space in each memory module at each simulation 
step . 

BIT# 3=1 causes HAIN to print the information contained in 
the J-TABLE following completion of each run. 

Other bits are presently unused. 

ITA — holds memory access time x 100 in basic clock periods. 

MINBLK — holds the smallest memory increment that may be 
allocated to a Job. Also used by CEC and HLS to determine 
amount of time required to load a job. 

MMCT~the number of basic clock periods required for one 
memory module cycle. 

MMST a constant used by HLS in comparison with the amount of 
space occupied by a nonresident job at completion time to 
help determine whether or not a new schedule should be 
called for. 

MTOTAL— total memory size. 

*^onstant used by LLS to control the maximum number of 
jobs that may be initiated. 

NIOS the number of lOPs in the system, must be less than or 
equal to the maximum number specified (N) in a dimension 
statement for the lOP status array IPROS(N). 

]®I0D — the number of memory modules in the system. 

NPCL the number of CPU cycle periods required for execution 
of a long instruction. 

NPCS—the number of CPU cycle periods required for execution 
of a short instruction. 

NCPUS the number of CPUs in the system, must be less than or 
equal to the maximum number specified (H) in a dimension 
statement for the CPU status array ICPU (N) . 

IFEDBK — indicates which memory allocator is to be used for 
current run. IFEDBK=1 indicates MAPREF is to be used. 
IFEDBK=0 indicates NFMAL is to be used. 
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IRNl — used by PEX as a seed for calculating a random number 
sequence for determining the number of memory accesses to 
request for each active job at each simulation step. 

IRN2 — used by HLS as a seed for calculating a random number 
sequence to determine the mean of the number of memory 
accesses to be made for each job during its processing 
period. 

IRN3 — used by HLS in calculation of target times for aperiodic 
jobs during the initial preprocessing phase and following 
job completion. 

IRN4 — not used 

IRN5 — used by PEX as the number of simulation periods over 
which the available bandwidth of each memory module is 
estimated. 

1EN6 — used by HLS in determining average memory access rate 
while in I/O mode and in determining minimum processing 
time . 

IRN7 — represents speed of lOP's relative to that of CPUs- 

IRN8 — used by HLS to determine residency of jobs. Represents 
cost of memory relative to cost of processor time. 

IRN9 — used by RECHEK in generating some of the characteristics 
of each job in the J-TABLE. 

MMAPF — used by MAPREF in calculating memory preference factor 
based on space considerations. 

MMSPF — used by MAPREF in calculating memory preference factor 
based on space considerations. 

WHERE USED: 

MAIN, SETUP, RECHEK, CKCPU, CKIOS, FEC, CEC, HLS, LLS, PEX, 

NFMAL, MAPREF, MASGN, and MEMRLS, 


BLK13 


ELEMENTS : 

RPAR(ll) (in MAIN, and SETUP) in other routines the elements of 
RPAR are referred to by the following names : 

RPOl, RP02, RP03, RP04, RP05, RP06, RP07, RP08, RP09 , RPIO, 
and RPll. 

HOW USED: 

The real parameters of the system are contained in this block 
so they like the integer parameters may be initialized from 
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the input stream at the beginning of a set of runs. Any 
parameter changes for succeeding runs must be made from the 
Input stream prior to that run. The parameter maintains the 
value of its least specification. The individual elements 
are used in the following manner: 

RPOl — used by MAIN in testing level of short term utilizations 
for triggering new schedules. 


RP02 — used by MAPREP to help prevent memory space lockout. 

RP03-^used by CEC as a weighting factor for external priority 
in the internal priority equation. 

RP04 used by CEC as a weighting factor on amount of time to 
target time in internal priority equation. 

RP05 used by CEC as a weighting factor on time in queue in 
calculation of internal priority equation. 

RP06 used by HLS to determine the number of minimum processing 
periods before target time that each should be transferred 
from the Future Events Chain to the Current Events Array. 

Also used by CEC in calculating Internal priority. 

RF07 used by HLS in determining residency for each job. 

RP08“— used by CEC and by HLS to determine what proportion of 
each job’s memory space is initialized at load time. 

RP09 used by HLS to determine the deviation in memory access 
requests while in CPU mode. 

RPlO-Access request distribution, 1.0 - random, 2.0 = sequential. 

RPll — not used. 

WHERE USED; 

MAIN, SETUP, CEC, HLS, LLS,' PEX, and MAPREF. 


BLK14 


ELEMENTS ; 

IFLAG(47), ITAGC46) 

HOW USED; 

IFLAG is used in determining whether or not the system parameters 
aye all been initialized. ITAG is used during pre— execution 
printout to determine whether or not the variables were 
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initialized inuaedlately before execution of a run or remain 
at a previously defined value. 

WHERE USED: 

MAIN and SETUP 


BLK15 


ELEMENT: 

KNAMEC46) 

HOW USED: 

Used in initializing the system parameters. Each element is a 
1 to 4 letter mnemonic for each variable in BLK12 and BLK13. 
The order in which the mnemonics are listed in BLK15 should 
correspond to the order in which the full mnemonics are listed 
in BLK12 and BLK13. 

WHERE USED: 

MAIN and SETUP. 


BLK16 


ELEMENTS : 

IBWCTR(24), ICEC(5,40), ICECS, ICPUClO). IPASS(20), IFECS, 
IFEC(40,4), IPR0S(16), ISAVE(3,3), IVALOV(IO), MALC(265,5), 
MALCS, MAS(24), MAVL(128,5), MAVLS, M0DNM(24), MTP1(24), 

NA(24), NAA(24), NAB, NAG, NAML(40), NBLK(128) , NFB(3), NJWM, 
NSCHED, NREQ(40,24), NTP(24), NTR(24), NUCA(24). 

HOW USED: 

IBWCTR — counters for the number of simulation steps since an 
allocation or release of memory from each memory module. 

ICEC — the current events array. Serves as the job queue for 
the system. The information in each of the five entries of 
each position of the ICEC array is as follows: 

ICEC(1,N) = Internal priority of job occupying position N. 

ICEC (2, N) = J-Table index of job occupying position N. 

ICEC (3, N) = time of entry into the array. 

ICEC(4,N) = An indicator of whether the job occupying position 
N is currently active. 

ICECC5,N) = A pointer to the next entry of the Current Events 
Chain .* 
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ICECS — a pointej: to the first entry of the Current Events 
Chain. 

ICPU—'the status talle for the system's CPUs. 

IPASS — an array which holds the current status of the system. 

IPASS Cl)— ^the ntimher of entries in the ICEC array. 

IPASS (2) —the number of entries in the Current Events Chain. 

IPASS(3)— the number active jobs in the system. 

IPASS (4) — the number of lOPs that have been initiated. 

IPASS (5) — the number of lOPs that are assigned to jobs in 
the Load state. 

IPASS (6) — the time at which the last schedule occurred. 

IPASS (7).— the n\imber of idle CPUs. 

IPASS (8) — used by MAIN and FEC to pass the time of the next 
event in the Future Events Chain to MAIN. 

IPASS (9) — the number of free lOPs. 

IPASS (10) — the amount of main memory space currently free. 

IPASS (11) — the number of jobs scheduled and waiting for 
storage space. 

IPASS (12 ~20) — not used. 

IFECS — a pointer to the first entry of the Future Events Chain, 
-1 indicates an empty chain. 

IFEC — the Future Events array. The infomation contained in 
each of the four positions of an entry of this array are as 
follows: 

IFEC(1,N) = Event time 

IFEC (2, N) = type event 

IFEC (3, N) = operand of event 

IFEC (4, N) = pointer to next entry of chain. 

IPROS — the current status table for the lOPs of the system. 
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ISAVE — used by MAPREF and NFMAL to hold Information used in 
making allocations of storage to TMR jobs. 

IVALOV-’-used in passing Information to and from the overflov 
area for the J^TABLE. 

MALC — the array used for the allocated storage list. The 
information contained in each of the five entries of each 
position of this array are as follows: 

MALC(N,1) = pointer to next entry in the chain 

MALC (N, 2) » pointer to preceeding entry in the chain 

MALC (N, 3) ’s starting address for block described by this 
position. 

MALC (N, 4) = pointer to next entry in the available list. 

MALC (N, 5) = length of block described by this position. 

MALCS — pointer to first entry of the allocated chain. 

MAS — holds the amount of available storage space in each memory 
module . 

MAVL — the array used for the available storage list. 

The Information contained in each of the five entries of each 
position of this array are as follows: 

MAVL(N,1) = pointer to next entry in the chain. 

MAVL(N,2) = pointer to preceeding entry in the chain. 

MAVL(N,3) = starting address for block described by this 
position. 

MAVL(N,4) = pointer to next entry in the allocated list, 

MAVL (N, 5) = length of block described by this position. 

MAVLS — pointer to the first entry of the available chain. 

MODNM — ^holds information concerning modules in which blocks of 
storage are contained. 

MTPl — holds total priority of all active jobs having storage 
space in each of the memory modules that request more memory 
accesses than their relative priority dictates that they may 
obtain. 
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NA — holds the. number of jobs haying space in each memory module. 

NAA, — holds the current estimate of the available bandwidth of 
the available space in each memory module. 

NAB — the number of allocated blocks of storage. 

nag — used by PEX in granting accesses to memory to each active 
job. 

NAML— used by MAPREF for holding the list of jobs that are 
waiting for memory. Also used by CEC in reordering the 
Current Events Chain. 

NBLK — used by MAPREF for holding the list of available blocks 
of memory. 

NFB — the number of free blocks of storage. Used by NFMAL. 

NJWM — the number of jobs that are waiting for storage space. 

NSCHED — used for calling for a new schedule. 

NREQ — holds the n^lmber of memory access requests from each 
active job to each memory module at each step of execution 
processing by PEX. 

NTP — used by PEX to hold the total priority of all the active 
jobs having space in each memory module. 

NTR — used by PEX to hold the total ntuaber of memory access 
request to each memory module at each step of execution 
processing. 

NUCA — used by PEX to hold the sum of the differences in the 
number of memory access dictated by relative priorities and 
the number actually requested. Thus, the number of unclaimed 
accesses. 

WHERE USED: 

MAIN, SETUP, CKCPU, CRIOS, LASTS, FEC CEC, HLS, LLS, PEX, NFMAL, 

MAPREF, MASGN, and MEMRLS 


BLK17 


ELEMENTS: 

ISTCNT, ISTAT(6,400), lUTL (6,200) 
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HOW USED: 

ISTCNT holds the count of the nunbex of entries made In the 
ISTAT array during each run. 

ISTAT holds the statistics for each coiopleted job. Its entries 
have the following meaning: 

ISTAT (1,N) = Job's Index In J-TABLE 

ISTAT (2, N) = time of entry Into the Current Events Array 
ISTAT (3, N) = time completed 

ISTAT (4 ,N) - estimated minimum processing time 
ISTAT (5, N) = target time 

ISTAT (6 ,N) = actual number of active simulation steps for the 
job. 

lUTL holds the statistics for utilization of the system's 
resources at selected step Intervals. The entries hold the 
following information: 

IUTL(1,N)— time 

IUTL(2,N)~CPU utilization 

IUTL(3,N)— lOP utilization 

IUTL(4,N) — memory bandwidth utilization 

1UTL(5,N) — memory space utilization 

IUTL(6,N) — mean job queue size. 

WHERE USED: 

MAIN, SETUP and PEX 

BLK18 

ELEMENTS: 

RUTLC15) in setup, other routines refer to the individual 
elements of this array by the following names: 

AN, CUU, PUU, BWU, SPU, BCUU, BPUU, BBWU, BSPU, ACUU, APUU, 
ABWU, ASPU, BQSIZ, AQSIZ 
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HOW USED; 

AN is a time counter 

CUU holds the CPU utilization for the past step 

PUU holds the lOP utilization for the past step 

BWU holds the memory bandwidth utilization for the past step 

SPU holds the memory space utilization for the past step 

BCUU holds the short term CPU utilization 

BPUU holds the short term memory bandwidth utilization 

BSPU holds the short term memory space utilization 

ACUU holds the long term CPU utilization 

APUU holds the long term lOP utilization 

ABMU holds the long term memory bandwidth utilization 

ASPU holds the long term memory space utilization 

BQSrz holds the short term average job queue size 

AQSIZ holds the long term average job queue size 

WHERE USED: 

MAIN, SETUP, and PEX. 


A Brief Description of Each Routine 
MAIN 

This program interprets the commands and data arriving from the 
input stream and in general directs the generation of the set of jobs 
that the system is to execute during a set of simulation runs. It 
also determines when to initiate new schedules during the course of 
a simulation run, advances the simulation clock and prints out statis- 
tics concerning utilization of system resources and service to individ- 
ual jobs. 


SETUP 


The routine SETUP initiates the system parameters in common 
blocks, BLK12 and BLK13 as well as certain variables in common block 


BLK16. 
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ICABD 

The ICAEU3 routine cowjaand end data cards one at a time 

and checks for syntax errors on these cards* It has provisions for 
handling continuation cards. It places each character that It reads 
into the arrays lUkP and FID. 

BULK 

This routine causes the Job names and predecessors to be placed 
in the NAME array. It then generates characteristics for the jobs in 
the NAME array using random distributions residing in the F array and 
the limit variables specified on the FMAX and FMIN cards for this set 
of jobs. 

STAT 

The STAT routine causes information concerning probability 
distributions and processing shape curves to be read into the F 
array . 

ENTR 

The ENTR routine causes a specified selection of job names to 
be entered into the MNAME array provided these job descriptions are in 
the NAME array. 

PENT 

The PRNT routine prints out the information from the J-TABLE 
at selected intervals of time or upon command from some other routine. 
CLEAR 

The CLEAR routine sets all entries in the J-TABLE and overflow 
area to zero upon command from the input stream. 



RECHEK 


The RECHEK routine transfers the data residing in the DATA and 
N/dlE arrays that is associated with elements of the lOlAME array into 
the J-TABLE upon commands from the input stream. 

UNMIX 

The UNMIX routine separates any selection of consecutive bits 
from a word. It is used in unpacking data. 

PACK 

The PACK routine is used to pack data into a single word. 

RANDN 

The RANDN routine is used to generate normally distributed random 
number sequences. 

RANDU 

The RANDU routine is used to generate uniformly distributed 
random number sequences. 

SHAPE 

The SHAPE routine is used to update the next Interrupt point of 
for each job by using the processing shape curves. 

CKCPU 

The CKCPU routine is used to update the status of CPUs and to 

search the CPU status table for idle CPUs. 

CKIOS 

The CKIOS routine is used to update the status of lOP and to 

search the lOP status table for idle lOPs. 

LASTS 

LASTS finds the lowest priority jobs with CPU(s) for preempting. 
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BITWRT 

BITWRT Is used by the PRINT routine for printing job status 
words out In binary fom^. 

FEC 

The FEC routine manages the Future Events Chain. It moves events 
into or out of this chain upon command from MAIN and HLS. 

CEC 

The CEC routine manages the Current Events Chain. It places 
entries into this chain, removes entries from the chain and orders the 
entries of the chain according to priority. It also calculates the 
priorities of the entries in the chain and sets the load status bits 
in the J~Table for new jobs entering the current events array that 
are not presently loaded into the memory. 

HLS 

The HLS routine has three major functions as follows: 

(1) HLS performs preprocessing on the set of jobs of a simulation 
run at the beginning of the run. During this preprocessing it 
determines the minimum processing time for each job, deter- 
mines which jobs should be resident in the main memory based 
on load times, mean ihterarrival times and relative costs of 
lOP time and memory space. It also calculates an initial 
target time for all jobs with no immediate predecessors. 

(2) Following a new schedule HLS makes an initial assignment of 
processors to each active job. 
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C3) FolloiijfiAg job completion the HLS routine calculates a new 
targat time and determines whether the job goes into the 
Current Events array. Future Events Chain or neither 
depending on value of next target time, minimum processing 
time and precedence relations. It also checks all imme- 
diate successor Jobs to see if all their other predecessors 
have been run recently enough that their output data is 
still valid. 

LLS 

The LLS routine switches jobs under the following three condi^ 

tions: 

(1) At I/O interrupt initiation 

(2) At I/O interrupt completion 

(3) At job completion 

This routine will preempt jobs of lower priority of their CPUs and 
reassign these CPUs to higher priority jobs. A considerable portion 
of this routine is concerned with problems associated with the simul- 
taneous execution of TMR and SIMPLEX jobs. 

PEX 

The PEX routine performs execution processing, keeps up with 
the amount of processing done on each job, calls LLS at I/O interrupt 
points, estimates the available bandwidth in each memory module and 
tallies system utilization and processor time to individual jobs. 
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NOEPRB 

This routine calculates the probability that a sample from a 
normal distribution with mean and standard deviation will exceed 
a sample from a normal distribution with mean P2 standard devia- 
tion 02* 

NFMAL 

This routine is the nonfeedback memory allocator. It makes 
allocations to jobs without knowledge of bandwidth requirements. It 
uses the optimum— fit algorithm. Allocations to TMR jobs are made from 
three disjoint sets of memory modules. 

MAPREF 

This routine is the feedback memory allocator. It uses an 
adaptation of the best fit algorithm. Memory assignments are made on 
the basis of best fit in space and bandwidth, however a portion of 
other priority factors such as time in queue may enter into the 
selection in order to avoid memory lockout. This routine is influenced 
to a considerable extent by the requirements for allocations to TMR 
jobs. 

MASGN 

This routine is called by MAPREF and NFMAL for updating the lists 
of available and allocated storage at each memory allocation. It also 
helps to tally the amount of available space and bandwidth in each 
memory module. 
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MEMKLS 

This routine is called by HLS for updating the lists of available 
and allocated storage each, time it is desired to release a block of 
storage. , 

OVFLMG 

This routine manages the overflow area from the J-TABLE. It will 
place, retrieve, or remove information from this area. 

Adjusting the Mean Bandwidth Requirements 

The model provides for adjustment of the mean bandwidth require- 
ments from any number of subsets of jobs in the set of a run by means 

of the mix parameter. Specifically the mean number of access requests 

per simulation step for CPU processing is given by 

MNARC = ICON/ (ITA + IPCT * FMIX) 

where FMIX =■ NPCS * INM + NPCL * (1 - INM) 

ICON is the number of basic clock periods per simulation 

step. ITA is the number of basic clock periods for memory 

access, IPCT is the number of CPU cycle periods per basic 
clock period, NPCS = number of CPU cycle periods per short 
instruction, INM is the proportion of short instructions and 
NPCL is the number of CPU cycles per long instruction. 

Similarly the number of accesses available from each memory module per 
simulation step is ICON/MMCT. Thus let A represent the ratio of mean 
bandwidth requirement per job to that of the bandwidth available from a 
memory module. We then have 
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MNARC s A * ICON/MMCT 
ICON/CITA + IPCT * FMIX) * A * ICON/lWCT 
Rearranging we obtain 

MMCT/A " ITA - IPCT * NPCL 
“ IPCT * (NPCS - NPCL) 

where 0 ^ INM ^ 1 

For a given set of values for ITA, IPCT, NPCS, NPCL and MMCT (chosen 
for the particular run) there are bounds on the value of A. Specif- 
ically as INM ranges from 0 to 1 A ranges from MMCT/ (ITA + IPCT * NPCL) 
to MMCT/ (ITA + IPCT * NPCS) . 



APPENDIX B 


Program Flow Charts 


NOTE; In these charts the symbol 


has been used as the decision element 
in place of the usual symbol 



to reduce the amount of paper required. 
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C 


MAIN START 

* " 


D 


SET THE IFLAG ARRAY. 



SET DEFAULT TIME PARAMETERS; PREDEFINE 
' TIME AND RTIME. 




CALL ICARD TO GET AN INSTRUCTION FROM 
THE INPUT STREAM AND PLACE IN IWRD. 


SET THE TRANSFER FLAG ’SET’ TO 3. 


< 


IS THE INSTRUCTION A COMMAND 
($ SYMBOL IN IWRD fin? 


> 


NO 


<: 


IWRD (2) = lENTR? 


> 


NO 


CALL STAT, BULK, OR ENTR IF IWRD(3)EQUALS . 
IDST. IBST. OR MJDT RESPECTIVELY. ' 


=2 


< 


WHAT IS THE VALUE OF SET? 


=3 


£ 


> 


=4 


WRITE AN ERROR MESSAGE 'IMPROPERLY FORMATTED 
UNDEFINED OR MISSING COMMAND OR DATA CARD’ 





STOP 


^ 

r- XDOES COMMAND CALL FOR ERASING J-TABLE?^ 

4 — 1 [no 


CALL CLEAR 


r ▼ ^ 

p yPOES COMMAND CALL FOR PRINTING J-TABLE^ 

4 — I [no 


CALL PRNT 


YES 



<^IS COMMAND FOR EXECUTION OF SIMULATION^ 


IS COMMAND A jTOP COMMAND? 


YES 


Fig. B-1 MAIN PROGRAM (sheet 1 of 3) 

/ 
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Fig. B-1 MAIN PROGRAM (sheet 2 of 3) 
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'to THERE ANY ACTIVE JOBS IN THE 
CURRENT EVENTS CHAIN 


NCNT = 0 


^ <TlS NCNT > 0? 

. ^ ^ 

ARE THERE ANY JOBS 

^IN THE ICEC QIAIN? 

. . Jno 


CALL FEC TO FIND OUT IF THERE ARE ANY JOBS 
IN THE FUTURE EVENTS CHAIN AND IF SO FIND 
OUT WHAT THE EARLIEST EVENT TIME IS? 

<T I^ I FEC EMPTY? 


ADVANCE TEE SIMULATION CLOCK TIME TO THE 
EVENT TIME OF THE LEADING EVENT IN THE I FEC 

• " - 

CALL FEC TO REMOVE ALL ENTRIES WHOSE EVENT 
TIME IS < THE PRESENT TIME. 


CALL PE.X FOR ONE STEP OF JOB EXECUTIO N. 
ADVANCE THE SIMULATION aOCK BY ONE. 

- - t 

YES^S THE SIMULATION CLOCK TIME GREATER THAN 
XtHE FINISH TIME FOR THIS RUN? 


WRITE THE PROCESSING ' 
STATISTICS FOR THIS RUN 


CALL FEC FOR REMOVAL 
OF LEADING ENTRIES. 


DETERMINE WHETHER OR NOT A NEW SCHEDULE 
SHOULD BY INITIATED ON THE BASIS OF SYSTEM 
STATUS AND PREVIOUS RESOURCE UTILIZATION. 


IS A NEW SCHEDULE CALLED FOR? 


Fig. B-1 MAIN PROGRAM (sheet 3 of 3) 
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IC = IC + 1 




WAS THE CABD JUST READ A COMMENT CARD? > 

^ jHO~ 

IS THE CARD COLUMN COUNTER (IC) > 80? 1 




NO 


RETURN 


DID CARD COLUMN IC CONTAIN A BLANK CHARACTER? 

i ' ' 

DID COLUMN IC CONTAIN A ALPHABETICAL CHARACTER?^^ ^ 


NO 


DID COLUMN IC CONTAIN A NUMERICAL CHARACTER? ^ 


DID COLUMN IC CONTAIN EITHER +, or . ? ^ 

^ NO' ~ 

< IS IC = 8o? 



4 YES 


IS THE PRESENT CARD CONTINUED? ^ 


YES 



Fig. B-2 ICARD subroutine (sheet 1 of A) 
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Fig. B-2 ICARD subroutine (sheet 2 of 4) 
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Fig. B-2 ICARD subroutine (sheet 3, of 4) 
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Fig. B-2 ICARD subroutine (sheet 4 of 4) 











218 


C bulk start 




UJOB = 0 , IJOB = 1 , NAME (*,<^) = 0. 


¥ 


NJOB = NJOB + 1 


I 


CALL I CARD TO READ A CARD FROM THE INPUT 
STREAM AND PLACE IN IWRD AND FLD. 


NO 


YES 


c 


IS NJOB >75? 


NO 


a; 


PRINT AN APPROPRIATE 
WARNING MESSAGE. 



YES 



WAS THE CARD JUST READ A COMMAND CARD 
(SPECIAL CHARACTER IN IWRD(l))? 



WAS THE CARD JUST READ A PROPER NAME CARD 
(IWRD(I) = 'NAME', IWRD{2) = '=')? 


NO 




WERE ALL THE JOB NAMES ON THE LAST CARD 
PROPER NAMES (START WITH ALPHABETICAL 
CHARACTER AND < U CHARACTERS LONG)? 


WERE MORE THAN 5 PREDECESSORS LISTED FOR 
THE JOB NAMES ON THE LAST CARD? 


W 



ENTER THE NAMES FROM THE LAST CARD INTO 
NAMES (NJOB, 3) THRU NAME (NJOB, 8). 


y * sJES 

WAS THERE A SYNTAX ERROR ON THE LAST CARD? 

( . WAS THE LAST CARD A ’$ END BLK' CARD? S 

■ Vno " 




WAS THE LAST CARD A '$ EXIT DIST' CARD? 


^NO I 


NJOB = NJOB-1 PRINT NAME ARRAY / -» |sET-s 2~j -^ 


RE T U raL 


Fig, B-3 BULK subroutine (sheet 1 of 3) 
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CALL I CARD TO READ THE NEXT CARD AND PLACE 
IN IWRD AND FLD. 


NO 


NJOB = NJOB - 1 j 

1 


WAS THE LAST CARD A 'SEED* =* CARD? 

4r~YES~ 


> 


> * “NYES 

< WAS THERE A SYNTAX ERROR ON THE LAST CARD? > 1 




ISD = IFIX(FLD(l), 


CALL I CARD 



A 


< 


WAS THE LAST CARD A 'FCTN* CARD? 

-V.-XES. 




^ WAS THERE A SYNTAX ERROR ON THE LAST CARD? _ 

HQ 

WERE NINE DISTRIBUTI ONS LISTED ON THE LAST CARD? ^ 
^ MO 


<C!IS 


THAN MINK T.IRTED 


V 




card-; 


XYE^ 


- PRINT AN APPROPRIATE WARNING MESSAGE . 

^ : 


PLACE THE FIRST NINE ENTRIES FROM LAST CARD INTO lAPXj 


CALL I CARD 


NO 


- , ^ - — — — — — ^ 

< C WAS THE LAST CARD AN '?mx' CARD? 

YES ~ 

WAS THERE A SYNTAX ERROR ON THE LAST ci^D? ^ 


VJERE NINE VALUES LISTED ON THE LAST CARD? , 

^ NQ 


< T ut-RR < MTWP VALUES LIS'^ D ON THE LAST CARD? 

_5sq 


YES 


NO 


ARE THE FIRST NINE VALUES LEGAL VALUES? 


^YES~ 


PLACE THE FIRST NINE VALUES FROM THE LAST 
CARD INTO FMAX. 



B 


Fig. B~3 BULK subroutine (sVteet 2 of 3) 
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Fig. B-3 BULK subroutine (sheet 3 of 3) 
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Fig. B-4 STAT sutiroutine (sheet 1 of 2) 
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STAT Subroutine (Sheet 2 of 2), 


Fig. B-4 
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Fig. B-5 SETUP subroutine (sheet 1 of 2) 
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MAKE THE FOLLOWING INITIALIZATIONS TO THE ELEMENTS 
OF COMMON BLK16: MAS(*) = PABM(17) /PAEM(20) , 

NAA(*) = PABM(2)/PAEM(15), IPASS(7) = PABM(23), 
IPASS(9) = PAEM(19), IPASS(lO) = PARM(17), ICECS = -1, 
IFECS = -1, MAVLS “ -1, MALCS = -I, MAVL(1, 1) = -1, 
MAVLd, 2) = -1, MAVLd, 3) = 0, MAVL(1, 4) = -1, 
MAVLd, 5) = PABMd?), NFB(l) = 1. SET ALL OTHER 
ELEMENTS OF COMMON BLK16 TO 0. 


SET ALL ELEMENTS OF COMMON BLK13 TO 0.0. 



IS THIS THE FIRST TIME THAT THE SYSTEM 
PARAMETERS HAVE BEEN SPECIFIED FOR THE 
PRESENT SEQUENCE OF SIMULATION RUNS 
(LAST ELEMENT OF IFLAG = -1)? 


YES 




I 


HAVE ALL SYSTEM PARAMETERS BEEN SPECIFIED? 



YES 


M B 


SET = 2 

Z3I 


SET THE LAST ELEMENT OF IFLAG TO 1. 

I 


RETURN 



Fig, B-5 SETUP subroutine (sheet 2 of 2) 
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Fig. B-6 ENTER subroutine Csheet 1 of 2) 
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Fig. B-6 ENTER subroutine (sheet 2 of 2) 
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c 


RECHEK START 

I 


3 0 . 


LIST(») = 0, N=0, NT=0, NDPL = 0. 


1 


ARE ANY OF THE JOBS IN MAME LISTED AS THEIR OWN 
PREDECESSORS? 


Xyes 



PRINT A WARNING MESSAGE. 


SET THIS PREDECESSOR ENTRY FOR THE JOB IN QUESTION 
TO 0. 


K 


5 


IS EACH PREDECESSOR LISTED FOR EACH JOB IN MRAME 
ALSO LISTED IN MNAME? 




0 


IS THE PREDECESSOR IN QUESTION ENTERED IN THE 
NAME ARRAY? 


4lES 



IS THERE ROOM IN MNAME FOR THIS PREDECESSO R? ^ 

- 4yes- _ ■ ■ 


ENTER THE PREDECESSOR INTO MNAME. 


INCREMENT N (THE COUNTER FOR NO. OF JOBS ENTERED 
INTO MNAME). 


PLACE THE NAME OF THE PREDECESSORS THAT WERE ENTERED 
INTO MNAME INTO THE LIST ARRAY. 


<C ARE THERE ANY PREDECESSOR LOOPS OF LENGTH 2 ? 

-1 I 


PLACE THE MEMBERS OF EACH PREDECESSOR LOOP OF LENGTH 
2 WITHOUT REPETITION INTO IDPL(NDPL,1) AND 
IDPL(NDPL,2) WHERE NDPL IS A COUNTER ON THE NO. OF 
SUCH LOOPS. 


HAVE ALL PREDECESSORS BEEN ENTERED INTO MNAME X 
(IS N = NT) ? 

^ ^ 

j NT = N 



Fig.B-7 RECHEK subroutine (sheet 1 of 4) 
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<C IS THE 


&ET BIT 11 OB J-TABLE ENTRY I’s WORD 
27 TO I (JM2(2T,l)n = 1 ). 


Fig.B“7 RECHE K subroutine (sheet 2 of k) 
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Fig. B-7 RECHEK subroutine (sheet 3 of 4) 
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PLACE THE >^EAN INTERARRIVAL TIME FOR THE 
PRESENT JOB INTO THE J-TABLE. 

(JM2(14,1) = DATA(J,7) IF JOB IS PERIODIC OR 

^ DATA(J,8) IF JQBJrg_ APERTnnTr:\ 


IS F(IDX,L) > 1 ? 

i NO 


IS DATA(J,1») < F(IDX,1)*DATA(J,5) ? 


JM2(15»I) = F(IDX,1)*DATA(J,5). 


JM2(15,I) = DATA(J,4) 


GENERATE THE SUCCESSOR RELATIONS FOR THE PRESENT JOB 
PROM THE PREDECESSOR RELATIONS CONTAINED IN MNAME AND 
PLACE IN THE J-TABLE. 






7 


PRINT M APPROPRIATE ERROR MESSAGE 


I 


SET = h 


RETURN 


Fig. b- 7 RECHEX subroutine (sheet 1* of U) 
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, ( PEC(KEY, ITIME, lOPRN, lOPND) START ) 

10 ) i ^ V400 

WHAT IS THE VALUE OF KEY? 



=2 


IS THE IFEC CHAIN IMPTY? 
^== 


> 


YES 


RETURN 


< 


i 


^NO 


IS IT TIME TO REMOVE THE LEADING ENTRY? 


I 


SET THE START OF IFEC CHAIN POINTER (IPECS) 
TO NEXT ENTRY POINTER FOR PRESENT ENTRY. 


< 


I 


WHAT KIND OF EVENT IS THE PRESENT ENTRY? 


p ' ^S THE JOB IN THE PRESENT ENTRY ALREADY IN ICEC^ 

^NO 

DOES THE JOB IN THE PRESENT ENTRY HAVE 
ANY PREDECESSORS? 


1 CALL NEW SCHEDULE 


SET NSCHED. 


ENTER JOB INTO ICEC 



I 


YES 


VE ALL PREDECESSORS OF JOB IN PRESENT 
ENTRY BEEN RUN WITHIN TWICE THEIR NORMAL 
PETITION PERIODS OF THE PRESENT TIME? 


5 


YES 


CALL CEC FOR INSERTION OF JOB IN PRESENT 
ENTRY INTO THE CURRENT EVENTS ARRAY. 


RESET THE INFEC STATUS BIT INDICATOR TO 0 
FOR THE JOB IN THE PRESENT ENTRY. 


SET ALL ELEMENT OF THE PRESENT ENTRY TO 0. 


Fig. B-8 FEC subroutine (sheet 1 of 2) 
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Fig- B-8 PEC subroutine (sheet 2 of 2) 
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Fig, B-9 CEC subroutine (sheet 1 of 4) 
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Fig. B-9 CEC subroutine sheet (2 of 4) 
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Fig. B-9 CEC subroutine (sheet 3 of 4) 
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Fig. B-9 CEC subroutine (sheet 4 of 4) 
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Fig. B~10 HLS subroutine (sheet 1 of 6) 
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Fig. B-10 HLS subroutine (.sheet 2 of 6) 
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PLACE THE NO. OF FREE CPUS INTO NFCPU. 



i. 


PLACE THE NO. OF FREE lOPS INTO NFIOP. 


I 


START AT THE HEAD OF THE ICEC CHAIN 



I 


HAS THE END OF THE ICEC CHAIN BEEN REACHED? 


I 



NO 


JINDX = IKIDEX IN J-TABLE OF PRESENT ENTRY IN ICEC. 




IS JINDX' S STATUS WORD LOAD BIT SET? 



I 


> 


YES 


IS THE NO. OF TOPS ALREADY ASSIGNED 
TO LOAD OPERATIONS > IQ2? 


NO H* 


I 



ARE JINDX’ S STATUS WORD BITS AS FOLLOWS? 
TMR/SIMPLEX=*0, READY^l, WAIT CPU»1, 

WAIT MEM0RY=0, WAIT IOP=*0. 



NO 


ARE JINDX 'S STATUS WORD BITS AS FOLLOWS? 
TMR/SIMPLEX«=0, READY=1, WAIT IOP=l, 

WAIT MEMORY=0, WAIT CPU=0. 



I 


NO 


ARE JINDX *S STATUS WORD BITS AS FOLLOWS? 
TMR/SIMPLEX=1, READY=1, WAIT CPU=1, 

WAIT MEMORY==0, WAIT IOP=0. 


,NO 



ARE JINDX 'S STATUS WORD BITS AS FOLLOWS? 
TMR/SIMPLEX=1, READY=1, WAIT IOP=l, 

WAIT MEMORY=0, WAIT CPU=0. 



Fig. B-10 HLS subroutine (sheet 3 of 6) 
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Fig. B-10 HLS subroutine (sheet 4 of 6) 
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SET JOB'S LAST RUN TIME TO PRESENT TIME 


DOES JOB HAVE ANY PREDECESSORS? 


IS JOB PERIODIC 



PERIOD TO NEXT 
RUN TIME (NPRD) = 
REPETITION PERIOD 


USE UNIEQBM RANDOM DISTRI- 
BUTION TO DETERMINE PERIOD 
TO NEXT RUN TIME (NPRD) 



JOB'S NEXT TARGET TIME = JOB'S NEXT TARGET TIME = 

JOB'S LAST RUN TIME + JOB'S PRESENT TARGET TIME 

NPRD + NPRD 



IS ICLK+2* (JOB'S MIN. PROCESSING TIME) GREATER 
THAN JOB'S NEXT TARGET TIME? 



Fig. B— 10 HLS subroutine (sheet 5 of 6) 
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Fig, B-10 HLS subroutine (sheet 6 of 6) 
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YES 


(noRPRB(PM, STDP, RM, STOR~ IDXEBN. PROS) STARXj 



PROS = 0.0 


IS PROCESSING INTERVAL MEAN MINUS THREE 
STD. DEV. < THREE STD. DEV. BELOW THE 
REQUEST MEAN? 



^IS REQUEST MEAN MINUS THREE STD. DEV. 

> PROCESSING MEAN PLUS THREE STD, DEV. ? 


J 



I 


< IS PROCESSING INTERVAL MEAN MINUS THREE STD. 
DEV. > THREE STD. DEV. ABOVE REQUEST MEAN? 

X NO ~ 



PROB = PROBABILITY THAT A SAMPLE FROM 
PROCESSING DISTRIBUTION IS < THREE 
STD. DEV. BELOW REQUEST MEAN. 


1 



PROB = 1.0 



PROB =0.0 






1 

RETURN 



RETURN 


: ! 

1 _ 


CALCULATE UPPER AND LOWER BOUNDS OF INTEGRATION. 


CALCULATE STARTING TABLE INDEXES FOR EACH DISTRIBUTION 


I 


CALCULATE INTERVAL INCREMENTS FOR EACH DISTRIBUTION. 



Fig. B-11 NORPRB subroutine (sheet 1 of 2) 






















Fig, B-11 NORPRB subroutine (sheet 2 of 2) 
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INTERRUPT 

COMPLETION 



C 

< 


LLS(KEY,JOB) START 


D 


WHAT IS TO BE PONT?:? 




JOB 

COMPLETION 


, INTERRUPT INITATION 


CALL SHAPE TO UPDATE JOB'S 
NEXT INTERRUPT POINT. 


SET JOB'S MODE TO I/O. 


< [ IS JOB'S PREEMPT BIT SET? 

Nol ^ 




NO 

& 


RESET JOB'S PREEMPT BIT TO 0. 

L- ~ 


JOB'S INTO PRIORITY > IPP? 


IS JOB TMR? ^ 


SEARCH ICEC CHAIN FOR A NEW TMR 
JOB(NJOB) AMONG THE THREE 
HIGHEST PRIORITY JOBS THAT 
WANT CPUS AND ARE QUALIFIED 
TO ACCEPT THEM. 


YES 


K NO. OP SCHEDULED \ 
JOBS < IQ3? X 


p< ^W^ SUCH A T^ffi JOB POUND? ^ 
^ YES 

jASSIGN JOB'S ^US TO NJOB~. 


1 

, YES 

NO. OF I/O ACCESS^ 
Nj=INl? 

3 

^ YES 

SET JOB'S HOLD 

BIT TO 1. 


UPDATE NJOB'S STATUS IN THE 
J-TABLE AND ICEC CHAIN. 

' 1 ~ ' • 


pC ^RE ANY SIMPLEX JOBS FOUNdT^ 


NO 


SET JOB'S CPUS TO IDLE 


ASSIGN AS MANY OF JOB'S CPUS 
TO THESE SIMPLEX JOBS AS 
POSSIBLE. SET ANY REMAINING 
CPUS TO IDLE. 




SEARCH FOR lOP(s) FOR JOB. 


i 

<ENOUGH lOPS FOUND FOR JOB? V , 


SET JOB'S WAIT lOP STATUS 
BIT TO 1. SET JOB’S ACTIVITY 
BIT TO 0. 


RETURN 


ASSIGN lOPS TO JOB. 

* : 


SET JOB'S WAIT l/O CMPLTN. 


RETURN 


Fig. B-12 LLS subroutine (sheet 1 of 8) 















2/i6 



Fig, B-12 LLS subroutine (sheet 2 of 8) 
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Fig. B— 12 LLS subroutine (sKeet 3 of 8) 










RESET JOB’S MODE TO CPU. RESET JOB'S WAIT I/O 
COMPLETION TO NOT WAITING. 


C 


I 


IS JOB'S HOLD BIT SET TO 1? 


NO 


-s^YES 


RESET JOB'S HOLD BIT 


UPDATE NPCPU WITH THE NO. 
OF IDLE CPUS. 


I 


YES 



I 


YES/- 


IS JOB TMR? 

1 


> 




IS NFCPU = 0? 


CALL LAST 3 TO SEARCH FOR 
A NEW SIMPLEX JOB OF 
LOWER PRIORITY THAN JOB 
THAT HAS A CPU. 



I 



ASSIGN ONE OF THE IDLE 
CPUS TO JOB. 


DID LAST 3 FIND A 
LOWER PRIORITY JOB 
WITH A CPU? 


|no 



I 


SET JOB'S ACTIVE BIT IN 
THE ICEC CHAIN TO 1. 


PREEMPT THE LOWEST 
PRIORITY JOB THAT LAST 3 
POUND AND REASSIGN ITS 


SET JOB'S WAIT CPU BIT TO 1. 
SET JOB'S ACTIVITY BIT TO 0. 


CPU TO JOB. 1 

i 



SET JOB'S ACTIVE BIT IN 



ICEC CHAIN TO 1. 






RETURN 


Fig. B-12 LLS subroutine (sheet 4 of 8) 
















Fig* B-12 LLS subroutine (shee.t 5 of 8) 
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JEAECH THE ICEC CHAIU FOR A NEW TMR JOB (NJOB) 

MONO THE THREE HIGHEST PRIORITY JOBS THAT ARE WAITING 



IS JOB'S HOLD BIT SET TO 1? 


Fig^ B-12 LLS subroutine (sheet 6 of 8) 
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SEARCH THE ICEC CHAIN FOR A NEW JOB (NJOB) THAT IS WAITING 
FOR CPU(S). 


WAS THE SEARCH SUCCESSFUL? 


IS NJOB TMR? 


SET JOB'S CPU TO IDLE 




REASSIGN JOB'S CPU TO NJOB. 



UPDATE NE WITH THE NO. OF IDLE CPUS 



ASSIGN TWO OF THE IDLE CPUS TO NJOB. 


CALL LAST 3 TO '■ SEARCH FOR SIMPLEX JOBS . OF LOWER PRIORITY 
THAN NJOB WITH CPUS. 



^DID LAST 3. FIND. AT LEAST 3-NE .CPUS? 


PREEMPT THE 3-NE LOWEST PRIORITY JOBS OF THE JOBS THAT 
LAST 3 FOUND WITH CPUS- AND REASSIGN .THEIR .CPUS TO NJOB. 


CONTINUE SEARCHING THE ICEC CHAIN FOR A NEW SIMPLEX JOB 
(NJOB) THAT IS WAITING FOR A CPU. 


IF NECESSARY UPDATE THE NEW JOB'S STATUS IN THE ICEC CHAIN 
AND IN THE J-TABLE. UPDATE JOB’S STATUS IN THE J-TABLE. 



RETURN 


Fig, B-12 LLS subroutine (sheet 7 of 8) 



















252 


SEABCH THE ICEC CHAIN FOR A NEW JOB (NJOB) THAT IS 
WAITING FOR AN lOP. IF THE NO. OP lOPS ALREADY ASSIGNED 
TO LOAD OPERATIONS IS > IQ2 THEN IGNORE JOBS WHOSE LOAD 
BIT IS SET TO 1. 


WAS THE SEARCH SUCCESSFUL? 


SET JOB’S lOP TO IDLE 


IS NJOB TMR? 



UPDATE NE WITH THE NO. OF IDLE lOPS 




CONTINUE. SEARCHING FOR THE ICEC CHAIN FOR A SIMPLEX JOB 
THAT IS WAITING FOR AN lOP. IF THE NO. OF lOPS ALREADY 
ASSIGNED TO LOAD OPERATIONS IS > IQ2 THEN IGNORE JOBS 
WHOSE LOAD BIT IS SET TO 1. 


ASSIGN TWO OF THE IDLE lOPS TO NJOB. 


REASSIGN JOB'S lOP TO NJOB. 


UPDATE NJOB'S STATUS IN THE -ICEC CHAIN AND J-TABLE. 


IS JOB'S HOLD BIT SET TO 1? 


UPDATE JOB’S STATUS IN THE J-TABLE. 



Fig. B-12 LLS subroutine (sheet 8 of 8) 
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PEX(IDXGAU) START ) 

I . 


START AT THE HEAD OF THE CURRENT EVENT CHAIN 




AT THE END OF THE CURRENT EVENTS CHAIN? 


1— *o 


NO 




GO TO THE NEXT ENTRY IN THE 
CURRENT EVENTS CHAIN 


< 


IS THE PRESENT JOB ACTIVE? 



I 


ARE MEMORY ACCESSES TO BE DISTRIBUTED RANDOMLY 
OVER EACH JOB'S MEMORY SPACE OR SEQUENTIALLY 
ACCORDING TO PRESENT POINT IN EACH PROGRAM? 


^RANDOMLY 

FIND THE AMOUNT OF MAIN MEMORY SPACE THAT THE PRESENT] 
JOB HAS IN EACH MEMORY MODULE AND PLACE IN MS PACE 
(MODULE INDEX) 




PLACE THE TOTAL AMOUNT OF MEMORY SPACE THAT THE 
PRESENT JOB HAS INTO JMSTOT 




OBTAIN THE TOTAL NUMBER OF MEMORY ACCESS REQUESTS 
(lACCS) TO BE MADE BY THE PRESENT JOB DURING THIS 
SIMULATION STEP FROM A NORMAL DISTRIBUTION WITH 
MEAN AND STD. DEV. OBTAINED FROM PRESENT JOB'S 
J-TABLE ENTRY. 


< CrANDOM OR SEQUENTIAL DISTRIB^ION? 



RAN^K 


>*0 


IS PRESENT JOB TMR 




lACCS = 3* lACCS 


Fig. B-13 PEX subroutine (sheet 1 of 4) 
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DISTRIBUTE THE PRESENT JOB’S MEMORY ACCESS REQUESTS OVER 
ALL MEMORY MODULES IN A LINEAR MANNER ACCORDING TO THE 
AMOUNT OF SPACE OCCUPIED BY THE PRESENT JOB IN EACH 
MEMORY MODULE AND PLACE IN NREQ(ICEC INDEX, MODULE 
INDEX) . 


L - ~ 

» 

DISTRIBUTE THE PRESENT JOB'S MEMORY ACCESS REQUESTS TO 
THE MEMORY MODULES IN WHICH THE PRESENT JOB HAS SPACE 
ACCORDING TO THE COMPLETION POINT OF THE PRESENT JOB. 


i? ~ 

SUM THE TOTAL NUMBER OF ACCESS REQUESTS MADE TO EACH 
MEMORY MODULE AND PLACE IN NTR (MODULE INDEX) . SUM THE 
TOTAL PRIORITIES OF ALL JOBS MAKING ACCESS REQUESTS TO 
EACH MEMORY MODULE AND PLACE IN NTP (MODULE INDEX) . 



Fig.B-13 PEX subroutine (sheet 2 of 4) 
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Fig. B-13 PEX subroutine (sheet 3 of 4) 
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Fig. B'-13 PEX subroutine (sheet 4 of 4) 
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Fig. B~14 NFMAL subroutine (sheet 1 of 2) 











PLACE THE INDEX OF THE SELECTED BLOCK INTO L(l). 


< 


IS JOB TMR? 


rz> 


YES 


■>14 


£ 


YES 


c 


1 = 1 + 1 

i 


IS I > 3? 




CREATE ANY REQUIRED NEW BLOCKS FROM THE INFORMATION 
IN ITKOF AND THEN MAKE AN ALLOCATION FROM THE 
END OF THE BLOCK WHOSE INDEX IS IN L TO JOB. 

MERGE THE HEW BLOCKS INTO THE MAVL AND 
MALC CHAINS. 



UPDATE NFB(l) 


I 




CAW ANOTHER ALLOCATION BE MADE FROM PRESENT 
LOCK PROVIDED APPROPRIATE ADJUSTMENT OF ITKOF IS 
)E TO AVOID VIOLATING OVERLAPPING MODULE RULE? 


I 


YES 


PLACE INDEX. OF PRESENT 
BLOCK INTO L(l) 


1 


UPDATE NFB(I) 



Fig. B-14 NFMAL subroutine (sheet 2 of 2) 
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Fig. B-15 MAPREF subroutine (sheet 1 of 5) 
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WHAT IS THE VALUE OF I? 


I 


> 




> 2 


CAH THE PRESENT BLOCK BE USED WITHOUT VIOLATING 
THE OVERLAPPING MODULE RULE WITH PREVIOUS 
SELECTIONS FOR THE PRESENT TMR JOB BY APPROPRIATE 
ADJUSTMENT OF ITKOF? 


YES 


5 



CALCULATE THE PREFERENCE FACTOR FOR THE PRESENT JOB 
AND PRESENT BLOCK. 


I 



IS THE PREFERENCE FACTOR JUST CALCULATED 
GREATER THAN THAT FOR ANY PREVIOUS JOB AND 
BLOCK WITH PRESENT VALUE OF I? 


I 



YES 


UI’DATE I SAVE (l,*) WITH PRESENT JOB’S INDEX FROM THE 
J- TABLE, PRESENT BLOCK’S INDEX FROM MABL, AND 
PREFERENCE FACTOR. UPDATE KPTMR (l,») WITH JOB'S INDEXi 
IN NAML AND BLOCK’S INDEX IN NBLK. 



95 


I 



l 80 ; 


WAS ANY BLOCK ASSOCIATED WITH ANY JOB ON THE LAST 
PASS WITH THE PRESENT VALUE OF I? 



^ YES 


24o 


IS THE PRESNET JOB TMR? 



^ NO 


> 


NO/ IS ALL OF BLOCK WHOSE MAVL INDEX IS IN! ISAVE (1,2) 

TO BE ALLOCATED? 

★ 

REMOVE THIS BLOCK FROM NBLK AND MOVE THE BLOCK AT THE 
END OF NBLK TO THE VACATED SLOT IF NECESSARY? 


NBPF = NBPF - 1 



Pig, B~15 NAPREF subroutine (sheet 2 of 5) 
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Fig. B-15 MAPREF subroutine (sheet 3 of 5) 
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< 


VfHAT IS THE VALUE OF I? 


> 


= 3 



< 3 

CM A SECOHD ALLOCATION BE MADE FROM THE PRESENT^v 
BLOCK WITHOUT VIOLATING THE OVERLAPPING MODULE > 
RULE BY A SUITABLE ADJUSTMENT OP ITKOF? 




YES 


1 = 1 + 1 


C 


WHAT IS THE VALUE OF I? 



I 


> 


= 3 


< 3 


CAN A THIRD ALLOCATION BE MADE FROM THE 
PRESENT BLOCK WITHOUT VIOLATING THE OVERLAPPING 
MODULE RULE BY A SUITABLE AJUSTMENT OF 
ITKOF? 


3 



NO 


TEMPORARILY REMOVE ANY PREVIOUSLY SELECTED BLOCKS 
FOR THE PRESENT JOB PROM NBLK? 



REPLACE ANY BLOCKS WHOSE INDEXES ARE IN KPTMR THAT 
MAY HAVE BEEN REMOVED FROM NBLK. 



320 


1 = 0 

3Z 


1 = 1 + 1 




NO 


IS I > 3 



325 


REMOVE JOB FROM NAML AND FILL VACANCY WITH THE 
ENTRY AT THE END OF THE NAML LIST IF NECESSARY 


©H 


NJWM = NJWM - 1 


Fig. B-15 MAPREF subroutine (sheet 4 of 5) 













263 



Fig. B-15 MAPREF subroutine (sheet 5 of 5) 
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Fig, B-16 MEHRLS subroutine Csheet 1 of 4) 
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© 


Wo 



© MAVL(M>1) > 0 ? ©> 


MAVL(MAVL(M.I),2) = Ml. 


5 


MAVL(M,*) = 0. 
NFB(l) = NFB(l) - 1, 


1 “ 



1T5 


MAVL(M1,4) = MALC(jBLK,l). 

MAVL(M1,5) = MAVL(M1,5) + MALC(JBLK,5) . 


5 


Yes V 

Is MALC(JBLK,2) >0? ^ 

4No 


MALC5 = MALC(JBLK,1). 


MALC(MALC(JBLK,2).l) = MALC( JBLK.l) • 


Yes 


1 

©' Is MALC(JBLK.l) > 0? -.(SV, 




MALC(MALC(JBLK,1) ,2) = MALC( JBLK,2 ) . 

, I ~~ 



< 


Is ICASE = 1 ? 


No 
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MAVL(M,3^ = MALC(JBLK,3). 
MAVL(M,5) = MAVL(M,5) + MALC(jBLK,5) 


Wo 




< C Is MAVL(M,2) > 0? 

4 Yei 




Is MAVL(MAVL(M,2) = JBLK ? 


> 


MAVL(MAVL(M,2) ,U) = MALC( JBLK.l). 


Fig. B-16 MEMRLS Subroutine (sheet 2 of 4) 
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Fig. B-16 MEMRLS subroutine (sheet 3 of 4) 
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Fig. B-16 MEMRLS subroutine Cstieet 4 of 4) 
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Fig. B-17 MASGN subroutine Csheet 1 of 2) 
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Fig. B-17 MASGN subroutine (sheet 2 of 2) 
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C QVFLMG(KEY.JOB.IFLp.IVAL,MT) STABT ) 


PLACE 



, 1 , 

WHAT IS TO BE LONE? > 

^EETRIEVE 


REMOVE 


NSKIP = IVAL(l). 

^ 


] 



IVAL(i)=Q, K=0, JADI> J (24, job). 


<; 


IS JAPP > 0 ? 
4 YES 




NPNTB = 0, IPNT = 1. 
^ ~~ 


IFHD = JOvFL(JADD,IPHD. 


LFLD = IFHD 15-11. 


< 


IS LFLD = IFLD? 


NQ ^ 


> 


YES 


NPNTB = IPNT, IPNT = IFHD 10-6. 


JCES. 




IS IPNT > 0 ? 




-i 


JAPP = JOVFL(JADD, 32). 


NENTRY = IFHD 5-1 » 1=0. 


< 


1=1 + 1 . 
... . -Jk 


IS I > NENTRY ? 


> 






IS NSKIP ^ 0 ? 


NSKIP = NSKIP-1. 


^YE^ 


K = K+1 


NO 


L 


^ isle > MT? 


IVAL(K) = J0VFL( JAPP, IPNT + I). 


YES 


RETURN 




p’ig^ B-18 OVFLMG subroutine (sheet 1 of 5) 
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LASTS = 0, 


JABD = J(2it,J0B). 


IS JAPP > 0 ? 

4 YES 

IPNT = 1. 


290) I2lt0 


LFLD = IFHDt t , NPNTF = IFHDir 


YES % 

— <v IS LFLD = IFLD ? 


NENTRY = IFHDs-i 



J0VFL( JADD,IPNT+I ) = IVAL(K). 


u,IPWT) = J0VFL(JADD,IPNTT+1, K = K+I. 


IS K > NKT ? 


Fig. B-18 OVFLMG subroutine (sheet 2 of 5) 
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Fig. B~18 OVFLMG subroutine (sheet 3 of 5) 
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Fig. B-18 OVFLMG subroutine (sheet 4 of 5 ) 
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K > NNT? 


NPNTF = IFHDj^O^g 

* 

IS NPNTF >0? 




JOVFL(JADD,NPNTB)5_i * 0. I IFHD >= JOVFL(JADD, NPNTF) 



JOVFL (LASTS, 32) = JOVFL(JADD, 32) 


r IS JOVFL(JADD,32) >0? 


J(24,JOB) = 0. 


J (22, JOB) = 0. 


J (2 4, JOB) = JOVFL(JADD,32). 


JADD = JOVFL(JADD,32) 


JOVFL(JADD.IPNT) = 0. | j JOVFL(ITEMP , 32) =* 


JOVFL(ITEMP.IPNT) = 0. 


RETURN 


: * 

JOVFL^ADD.IPNT) = JOVFL (JADD, NPNTF) . 

1 = 0. S ^ 1=1- 




^ ‘ 

4 n 

1 = 1 + 1 . 


IS I > NENTRY 



JOVFL(JADD.IPNT + 


IS NPNTF > 0? 


IPNT = ITEMP 

'k. 

RETURN 



K > NNT? 

I YES 


NPNTF = IFHDj^O-6 


JOVFL (JADD, IPNT) = 
JOVFL (JADD, IPNT) 
-ID1FF*32 

IPNT = NPNTF-IDIFF 



Fig.B-18 OVFLMG subroutine (sheet 5 of 5) 
























APPENDIX C 


Pf^OGRAM LISTINGS 


♦ WARNING **** 

IM THE FOLLG^IMG PR3GRAV( LISTINGS ThE NORMAL FORTRAN 
SEVENTY-TWO SPACE LINE HAS BEEN REPLACED 8Y A SIXTY SPACt 
LINE WHICH IS SUITABLE FOW AN EIGHT AMD ONE-HALF INCH 
WIDE i>AGE .WITH A ONE AND UNE-HALF INCH LEFT HAND MARGIN 
AND A ONE INCH RIGHT HAND MARGIN. THEREFORE IN IHESE 
LISTINGS THE FIRST CA^D OF A FORTRAN STATEMENT BEGINS IN 
COLUMN SIXTEEN* PROCEEDS THROUGH COLUMN SEVENTY-FIVE AND 
CONTINJFS UN COLUMN TWENTY-TWO OF THE FOLLOWING LINE AND 
FMOS ON COLUMN THIRTY-THREE OF THE FOLLOWING LINE PROVIDED 
THE ORIGINAL CARD HAD ANY NONBLANK CHARACTERS IN COLUMNS 
SI XTY-ONF THROUGH SEVENTY-TWO OR THE FOLLOWING CARD WAS A 
CONTINUATION OF THIS STATEMENT. OTHERWISE IT ENDS IN THE 
FIRST LINE OF THE STATEMENT IN THIS LISTING. THE SECOND 
AND SUBSFyUENT CAPOS OF A STATEMENT BEGINS IN THE FIRST 
COLUMN AFTER THE END OF THE PRECEEOING CARD IN THESE 
LISTINGS. THE CONTINUATION SYMBOLS OF THE ORIGINAL CARO 
STATEMENTS HAVE BEEN REMOVED AND SUITABLE CONTINUATION 
SYMBOLS HAVE BEEN PLACED AS APPROPRIATE IN COLUMN TWENTY- 
ONE OF THESE LISTINGS 
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BLOCK DATA 

CCyMON/BLKl/IASK,lOSH,LIND(33} »LlNA(33)f IBIK. lOLRt lEQL 
C , I C S T 

CCf^MON/BLKl/INAMe, lOATA.MjOT, IBST,IEXIT,IFLD 
CGVMON/BLKlS/Kf^AME (A6) 

CC^M0N/8LK18/RUTL( 15) 

DATA RUTL/15*C.0/ 

DATA lASK, I DSH, LIND, LINA/ »♦♦♦** ,* • ,33*' * 

/ 

DATA IBLK,IOLR,IEOL,IDST/» *,*t »,•= ','DIST*/ 

DATA INAME,rOATA,MJOTrIBST/»NAME',*OATA‘,'MJOT*,*BST • 
C/ 

DATA IEXIT,IFLD/'EXlT't'*FLO'/ 

data KNAME/’CESZS *C0N *,'N1 ’t’FECZ't'PCT *,'P1 », 

C *P2 *,'Ql *,»Q2 »,*03 *»*R *»*S 

C»TA S'MNBK*, 'HMCT* , *mmst» , »MTTL* , *NI ',*N 

CICS' , *NMOD* , 'NPCL* , ' NPCS * , * NCPU * , • IFBK* , • IRNl* , * IRN 

C2» , ' [RN3* , • IRN4* , • IRN5* , » IRN6* , * IRN7* , * IRN8', • IRN9* 
C, •I'SPF* , 'MAPF* , 'RPOl* , ’RPOZ* , »RP03' ,»RP04» , 'RP05' , *RPO 
C6* , 'RP07* , *RP08' , •RP09* , »RP10* , ' RPll V 

r 

END 

CCI^MON/BLKl/IASKtIDSH,LlNO(33) ,LINA(33) ,IBLK, IDLR, lECL 
C, ICST 

CG<^M0N/BLK1/INAME, IDATA,MJOT, IBST, lEXITtlFLO 
CCf'MON/BLKZ/IWROdCO) , FLO (50) 

CC^MON /6LK3/ IDIST(25) ,F(25,41) ,NDIST 
CCr'M0N/BLK4/NAME(75,8) ♦ DATA ( 75 , 9 ) , N JOB ♦ N JOBER 
DIMENSION NEXC(64) 

INTEGER*2 NEXC , N JOB , N JOBER 
CCf^f«QN/BLK5/ SET 
CCVMON/BLKT/ J-^CZTtSA) 
lMeGER<=2 JM 
CC^M0N/BLK8/ TIME 
ccmmgm/blku/ RTIME 
CCVM0N/BLK12/PARM(35) 

CCMMCN/BLK13/RPAR( 11 ) 

CPMMi)N/BLK14/IFLAG(47) , I TAG (46) 

CGVM0N/BLK15/KNAME(46) 

C0MMQN/BLK16/IBWCTR( 24) , ICEC ( 5 ,40 ) , ICEC S , I CPU ( 10), IPAS 
CS(2C) , IFECS,IFEC(40,4),IPROS(16), ISAV£(3,3) , IVAL 

LOV( IC) ,MALC( 256,5), MALCS , MAS ( 24 ) , MAVL ( 12 8 , 5 ) , MAVL 

tS»MODNMl 24) ,MTPK24) ,NA(24) , NA A I 24 ) , N AB , NAG , NA 

CML(4C ) ,NBLK( 123 ),NFB (3) ,NJ WM , NSCHED , NR EG (4 

c:. ,24) ,NTP( 24) ,NTR(24) ,NUCA(24) 
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C 

INTEGER*2 18 WC TR» ICEC * ICEC S , ICPU, I PASS , I PEGS. IFEC, IPRO 
CSf ISAVEt I VALOV, MALCtHALCSf MAS fMAVLf MAVIS* MOD 

CNM,MTPl ,NA ,NAA*NAB, NAG* N AML ,NBLK, NFB * N JWM, NSCHED , 

CNREQ,NTP,NTR,NUCA 

C0MM0N/BLK17/ I STCNT , 1 STAT ( 6 , AGO ) , I UTL ( 6 ,200) 

INTEGER*2 ISTAT,IUTL 

COMMQN/BLKIB/ AN,CUU , PUU , BMU , SPU , BCUU, BPUU , BB WU, BSPU , A 
CCUU.APUU, A8MU»ASPU,BQSrZ,AQSIZ 
C 

DIMENSION lOPTIA) 

INTEGER*2 SET, T IME ,HF I X , I FLAG, I TAG 
INTEGER PARM,GAUS/'GAUS»/ 

DIMENSION NSST(7,100) 

INTEGER*2 NSST 
DIMENSION SM£AN(7) 

DATA lENTR , I0L6T, ISTOP, IXEO/' ENTR* , ' DLET* , • STOP* , ‘XEQ 
C'/ 

DATA ISIMN, I ERAS, IPRT/*SIMN» , 'ERAS* , *PRNT* / 

DATA IOPT/'STIH',»FTIM‘ ,'DELT* ,»PDEL»/,LETL/'L */,IS 
CTR/'* •/ 

DATA lERR, INIT, ISYS/**ERR* , * INIT* * • SYS •/ 

INTEGER NCNT/0/ 

DC 24 1=1,46 
24 IFLAG{I)=0 

IFLAG(47)=-1 
1 STKTIM=0.0 

FINTIM=10.0 
0ELTA=0.01 
PRT0EL=0.5 
T1ME=HF IX( STRTIM) 

RTIME=STRTIM 

NSSTC=0 

? CALL ICARD 

SET=3 

IFUWROm .NE. IDLR) GO TO 3 
IF( IWRDI2) ,E0. lENTR)' GC TO 4 

IF ( ( IVnRO( 2 ) . EQ . INI T ) , AND. ( IWROI 3) . EO. I SYS ) ) CALL SETUP 
IF(SET.EQ.4) GO TO lOG 

IF( ( IWR0( 2). EO. lERAS) .AND. ( IWRD(3) .EO.MJDT) ) CALL CLEA 

CR 

IF(SET.E0.4) GO TO 100 

I F ( ( I WRO( 2 ) . EQ . IXEQ) . AND. ( I WRD ( 3 ) . EQ. I S I MN ) ) GO TO 5 
IF( (IWRD(2).EQ,IPRT) .ANC.nWRD(3).EQ.HJDTn CALL PRNT 
IF( SET.E0.4) GO TO 100 
IF(IWRD(2) .EQ. ISTOP) GO TO 99 
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GO TO (1»2»3,100) tSET 
3 WRITe<6»201) I4SK,IASK, lOSH 

201 FCkMAK//,' SA4, 'ERR0R*fA4, ‘IMPROPERLY FORMATED, UNDEF 
CINLD,OR MISSING COMMAND OR DATA CARD* ,AA, • SIMULATION T 
CEHMINATEO * ) 

GC TO IOC 

A IF( IWRD(3) .EG. IDST) CALL STAT 

IF(IWR0( 3) «E0. IBST) CALL BULK 
IF ( IWRD( 31 .EQ.MJDT) CALL ENTER 
GC TO ( l,2,3,l J0» ,SET 

5 IF UFLAG(^7) .NE.l ) GO TG 98 
IF (IWRDI A) ,E0. 3) GO TO 21 

IF ( ( IWR0(4 J .NE.LETL > . OR . ( I WRD ( 5 I . NE. I STR ) , OR. (IWRD16 ). 
CNF. IFLD) ) GO TO 2u 
C 

IF( IWR0(7) .NE.U GO TO 20 
IF(FLC( D.LT.l.O) GO TO 20 
IFIFLDI 1 > .LE.4.0) GO TO 6 
FLCm=A.O 

^RITE(6,203J lASK, I ASK, lOSH 

2?3 FC’RMATI//,* • , A A, » WARN I NG * » A4 , • ONLY A LOCAL OPTIONS A 
CVAILABLE AT E KECUTI ON • ,AA ,* LOCAL OPTION SPEC. ASSUMED 
CTC BE L«A‘ ) 

6 NDPT=IFIX( FLO( I n 
DC 19 I=1,N0PT 
CALL ICARD 

DC 7 J=l,A 

IF( IWRD(l) .EO.IOPTU) ) GO TO 9 
fF( IWRD(I).EQ.IDLR) GC TO 97 

7 CCa'TINUE 

8 WRITE(6,20A) I A SK , I ASK , I OSH 

2vA FORMAT!//, • AA, * WARNING* ,AA, * I N VAL I D OP T I ON C AR 0 • , A 

CA, 'PASSED' ) 

GC TO 19 

9 IF ( ( IWRDt 2 ) .NE. lEOL) . OR . ( 1 WRD ( 3 ) . NE . I FLO ) . OR . I IWRD(A) . 
CNF . 1 n GO TO 8 

C 

GO T0( 10, 12, 15, 17J ,J 
i: IF (FLD( 1) .GE.O.O) GO TG 11 

WR ITE!6,205) I ASK, I A SK , lOPT (J ) , I D SH 
2w5 FORMAT!//, • *, AA, * WARNING* ,AA, • ILLEGAL VALUE SPECIFIE 

CD FDR *,2AA, 'DEFAULT OPTION USED') 

C 

GC TO 19 

11 STRTIM=FL0(1) 

Gi: TC 19 
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12 IF(FLD( D.GT.O.O) GO TO 13 

WRITE (6, 205 J I ASK* I ASK, lOPT(J), IDSH 
GC TO lA 

13 FINTIM=FLOU) 

lA IF(STRTIM.LT.FINTIM) GO TO 19 

WRITE(6,206) lASK* lASK, lOSH 

2C6 FORMAT!//,* *, AA, • WARNING * ,AA, * STIM HAS BEEN SPECIFIE 
CD TO BE GREATER THAN FTIM* ,AA, *FTIM SET TO 2*STIM») 

, C 

FINTIH=2,C*STRTIH 
GC TO 19 

15 IF(FLU(l)*Ge,O.COU GO TO 16 
WRITE(6,205) IASK,IASK,IOPT(J),IOSH 
GO TO 19 

16 DELTA=FLOm 
GO TO 19 

17 IF (FLO! 1 ) .GE.0.0) GO TO 18 

WRITE (6, 205 1 I ASK, lASK, lOPTI J ) , IDSH 
GO TO 19 

18 PRTDEL = FLOm 

19 CONTINUE 
GC TO 21 

20 WRITE(6,2*>7) I A SK , I ASK , lOSH 

211 FORMAT!//,' ' , A A , • WARN I NG * , AA , • INVALID LOCAL OPTION S 
CPEC.* ,AA,*ALL DEFAULT VALUES IN EFFECT*) 

C 

21 WRITE!6,208) LINO, LIND 

2:e FORMAT!* *,33AA) 

WR1TE!6,2C9) I A SK, I ASK , I ASK , I A SK , STRTI M , FI NTIM , OELT A , P 

CRTDEL 

209 FORMAT!//,' ',AA,‘ BEGINNING EX6CUTICN *,AA,//,* *,AA, 
C* VALUES OF LOCAL OPTIONS * , AA , // , lOX, * STI M =*,F8.3,/, 
C10X,*FTIM =• ,F8.3,/, lOX, *DELT = • , F8. 3 , / , lOX , • PDEL =*, 
CF8. 3,// > 

WRITE!6,212) IASK,IA5K 

212 FORMAT!//,* *,AA,* VALUES OF SYSTEM PARAMETERS *,AA) 

DC 25 1=1,35 

IF! ITAG! n .EO.O) WRITE!6,213) KN AHE ! I ) , PARM ! I) , I STR 

25 IF! ITAG! I) .NE.O) WRITE(6,213) KNAME ! I) , P ARM ! I ) 

213 FORMAT! 10X,AA, ' =*,I10,AA) 

00 26 1=36, A6 

IF! ITAG! M .EO.O) WR I TE (6, 21 A ) KNAME ! I ) , RPAR ! I~35 ) , I STR 

26 IFIITAG! I ) .NE.0)WRITE!6,21A) KNAME ! I ), RPAR ! 1-35 ) 

21A FORMAT! 10X,AA, » =*,FIA.A,AA) 

wRlTt(6,20B) LIND, LINO 

prttim=strtim-»-prtdel 
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3w0 

301 


10 CO 

IICO 


io:i 

22 

23 


1CC3 
ICO- 5 
111'. 

1 o s. 6 

1 :c9 

116. 


ICC 7 

1 2 W aj 


10 10 
1113 


1120 


1 C 1 2 

12iv. 

1029 


RTIME=STRTIM 
OC 300 KKK=1,25 

IFaOIST(KKK).EQ.GAUS) GO TO 301 

CCiNTINUE 

ICXGAU^KKK 

CALL UNMIX(3,2,PARM(12)»IWRT3) 

WRITE(6aiOOJ 

FCRMATC MAIN WILL NOW CALL HLS FOR INITIAL J-TABLE SC 
CAN « ) 

CALL HLSU,0) 

IF (RTIME.LTcPRTTIM) GO TO 23 
CALL PRNT 

PRTTIM=PRTTIM+PRTDEL 

IPASS(6)=TIME 

NSSTC=NSSTC+l 

NSSTI 1,NSSTC ) = T IM6 

NSST(2fNSSTC)=NJWM 

l\SSTt3»NSSTC)=NF6m 

NSST(A,NSSTC)=IPASS( 10) 

1F(PARM124)J lOlOtlOOSaOlO 
WRITEI6, 11 1C) TIME 

FCRMATI* TIME = MAIN TO CEC FOR NEW SCHED,NFBK* 

L ) 

CALL CEC(2tO) 

NSCHED=0 


WRITE(6ai6C) TIME 
FORMAT! * TIME = ’,15,' 
CALL NFMAL(1,0»0) 
WRlTE(6a2C0) TIME 
FCRMATI • TIME = • »I5f ' 
CNFOK« ) 

CALL HLS (2,0) 

GC TO 1029 
WRl TE (6,1113) TIME 
FORMAT! • TIME = • , 15, • 
CALL MAPREF 


MAIN TO NFMAL*) 


MAIN TO HLS FOR PROCESSOR ASN., 


MAIN TO MAPREF* ) 


wRITL-(6ai20) TIME 

FORMAT!' TIME =',I5,' MAIN TO CEC FOR NEW SCHEDULE, F0K 
0* > 


call CEC!2,U> 

NSCH£C=0 

WRITE !6, 1210) TIME 

FORMAT!' TIME = ',15,* MAIN TO HLS FOR PROCESSOR ASN., 
CF8K* ) 

CALL HLS (2,0) 

NSST(5,NSSTC)=NJWM 
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NSST(6,NSSTC»=NFBn) 

NSST(7,NSSTC»*f PASS( 10) 

1C30 IFl IPASSOJ.GT.C) GO TC 1033 
IF(NCNT.GT.O) GO TO 1031 
NCNT=NCNT+l 

IF( IPASS( D.GT.O) GO TO 1003 
GO TO 1032 
lC3i NCNT*0 

WRITE(6f IA00» 

IA;o FCBPATI' ♦♦♦♦error**** scheduler hung up» no active jc 

CBS but*/ ♦ JOBS IN ICEC ARE NOT BEING SCHEDULED') 

C 

1032 CALL FEC(3,0»0f0) 

IF( IPASS(8 ) .EQ.-l) GO TO 09 
LL0W=(TIME+19)/2C 
LHIGH=IPASS< 8) 

RTIME=FL0AT( LHIGH) 

AN=RTIME 

LHIGH=LHIGH/20 

IF(LLOW.GT.LHIGH) GO TC 1710 
DC 1705 KKK=LLOWtLHIGH 
IUTL( If KKK )=sKKK*20 
CC 1705 KK=2f6 
1UTUKK,KKK + Iu0)=0 
17C5 lUTL(KKfKKK)=0 
1710 k»RlTE(6t 1220) T IME , I PASS( 0 ) 

1220 FORMAT! • MAIN HILL NOW ADVANCE CLOCK FR0M*,l6f* T0*tI6 
t) 

TIME=IPASS{8) 
call F£C(2f0,0,C) 

CC rc 1003 

114: FORMAT!/, • MAIN WILL NOW CALL P6X, TIME®',I8) 

i:33 CALL PEXnoXGAU) 

IbvO FORMAT! 10! 2X, 14) ) 

15:5 FORMAT! 16! 2X, 14) ) 

151.: FORMAT!* I PA SS 1 1-4 ) , T I ME • , 5 ! 2X , I 5 ) ) 

TIME =TIME+HFIX!DELTA) 

rtive=rtime+oelta 

IF!TIME.GE.0) go TO 50 
CALL RESET 

50 IFIRTiMEfLE.FINTIM) GO TO 1040 
IF! IWKT3.EQ.1) CALL PRNT 
WR1TE!6,1520) 

152e FORMAT!*!*) 

WrtlTE!6,l525) 

1525 FORMAT17X,*JOB*,3X,*1N I CEC * , 5X , * CMPLT * , 2X , ' M I N PROS', 
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C lXt»TARG TIME»,2X, MCT PROS',/) 

C 

15 30 FGRMAT(6(AX, 16) I 
LANUf<=0 
LASUM^D 
LASQR^O 
LAf^AX = 0 
IRNUH=0 
IRSUM=C 
IRSQR=C 
I RyAX=0 

OC 375 KK=1,6A 
375 NEXC(KK)=C 

CC AOC KK=1,ISTCNT 

hR ITE (6, 1530) ( ISTAT( IX,KK),IX=1,6) 

NEXC( ISTAT(l,KK))=NEXC(ISTAT(l,KK) )♦! 

ICIFF^I STAT{3,KK)-1S7AT(5,KK) 
rF(IDIFF) 390,AC0,380 
^80 LANUK=LANUM+1 

LASUM=LASUM+IDI FF 
LASQR=LASOR+IOIFF#IDIFF 
IF(IDIFF.GT.LAMAX) LAMAX=IDIFF 
GC TO AOO 

39: IOIFF=-IOIFF 

IR\UM=IRNUM+1 
IRSUM=IRSUM+IOIFF 
IRS0R=IRSQR+IDIFF*1DIFF 
IF ( lOIFF.GT. IRMAX) IRMAX=IDIFF 
AC'^' CO'jTINUE 

IF(LANUM.EO.C) GC TO A05 
RALA = LASU)</LANUM 

LAVAR=( LASQR-2*MNLA«LASUM)/LANUM+MNLA*MNLA 
HRITE(6,1560) L ANUM , LAPAX , MNLA , LAV AR 
156: FCRMATC NO. LATE JOBS, MAX LATE, MEAN LATE, AND VAR. ARE 

C* ,A( 3X, 16) ) 

IF (IKNUM.EQ.O) go TO AlO 
MNIR=IRSUM/IRNUM 

IRVAR=( IRSQR-2«MNIR*IRSUM)/IRNUM+MNIR*MNIR 
ITEI6, 15 70) IRNUM, IRMAX,MNIR, IRVAR 
157:: FORMAT!/, • NO. EARLY JOBS, MAX E ARLY , ME AN&VAR , ARE ' , A ( 3X » 

CI6) ) 

AlC ITIM£=TIME 

ARRVLM=FLOAT( ITIME) /FLOAT! ISTCNT) 

WR ITE (6, 1580) I STCNT , ARRVLM 

1560 FORMAT!/,* TL. NO. JOBS RUNLMN . I NTCMP , T I ME ARE • , 3X , I 6 , 3X 
C,FIC.2) 




rcj 
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WRITE(6»1585I 

1585 FORMAT(//f* RUN FR60UENCY FOR EACH JOB*) 

V^RtTE<6,1590) 

1590 F0RMAT{ /,3X, ♦ JOB LOC. • »3Xt *NO. RUNS* t6X, *LCACCS* »6X, 

C »NPACCS* t6X,*NTACCS* »9X. *OMD* > 

C 

TOM[)=C.O 

LDAT=C 

NPAT=C 

NTAT=0 

CG A15 KKK=l,NJOBER 

LDACCS=0 

NPACCS=0 

INC=JP( ITtKKK) 

CALL UNMIXUlfOtINOfHMS) 

INL=JW{27,KKK) 

CALL UNMiXaif lOtINDtITWR) 

CALL UNMlxa0f9, INOi IRES) 

CALL UNMlXI2»ltIND,INT) 

CALL UNMIXU4,13, INOi,LOAD) ' 

CALL UNMIX(5,2#INO»IND53) 

1F(L0AD*EQ.I) LDACCS»LCACCS<-JM( 10»KKK) 

IF(IRES.EQ.O) GO TO All 
IFINEXC (KKK) ) 4l2t412fA121 

All LCACCS = LOACCS+IFIX(RPAR(8)*(f^MS*PARMUA)*NEXC(KKK) ) ) 

A12 IF(INT.Nc.l.AN0.IND53.NE.l) GO TO Al3 
A121 L0ACCS=LDACCS+IFIX<RPAR(8)*(MMS«PARHUA) ) ) 

A13 JPACCS=JM( 9»KKK )+JM( 15»KKK) 

NPACCS^JPACCSONEXUKKK) 

IF(INT.EQ.I) NPACCS=NPACCS*JM( ie,KKK) 

IF( ITPR .EO.G) GO TO AlA 
LDACCS=3*LDACCS 
NPACCS=3«'NPACCS 
AlA NTACCS=LOACCS+NPACCS 
LrAT=LDAT+LDACCS 

npat*npat+npaccs 

^TAT = ^JTAT + NTACCS 
f<I T = JK( 1A,KKK) 

rkun=rtime/mit . 

OLDS = l«IRES+(l-IRES)«jRRUN 

Lf^b=(RPAR( 8 )*DLUS=^PArM(IA)*PPS + RRUN*JPACCS )*( 1 + 2*1TMR) 
TONO=TOMO+OMD 

WRITE (6, 1 5 95) KKK , NFx'c I KKK ) t LDACCS » NPACCS » NTACCS » DM0 
1595 FORMAT! AX, I A ♦ 8X , I A , 6X , 1 8 , AX , I 8 ♦ AX , I 8 , AX ♦F8 .0 ) 

A15 CONTINUE 

WR1TEI6, 1596 ) LCA T , NP A T ,NT AT , TOMD 
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1596 F0RMAT(9X» • TOTA LS ' t 7X , 3 ( IX » 1 1 1 1 , 2X , F 10 . 0 ) 

WRITE(6,16Q0) 

160C FORMATt //t ICX, ‘NEW SCHEDULE STATISTICS') 
hRITE(6, 1605) 

1605 F0R^^AT(/»6X, • TONS • 1 4X ♦ 'NJWMS ' ♦ 7X, ' NFBS ' t 4X t ' MSPACES ' t 

C 6X, 'NJWME* ,7Xt ' NFBE • t 4X, • MSPACEE • ) 

C 

DC 416 IX=l,7 

416 SMtAN( IX)=0.0 

161u FORMAT! 7( IX, 19) » 

DO 417 KKK=1,NSSTC 
IF (KKK. EO. 1 ) GO TO 4161 

SMF.AN( 1 )=SMEAN( 1 > +N SST U , KKK ) -NSST ( I , KKK- 1 ) 

4161 CO 4163 KKX=2,7 

4163 SM<FAN(KKX) = SM£ AN ( KKX > + NSST (KKX , KKK ) 

WRI rE(6,1610) (NSSTIIXpKKK) ,IX=1,7) 

417 CONTINUE 

Ur 4171 KKX=l,7 

4171 SMEANIKKX)=SMEAN(KKX)/NSSTC 
^<RIT£I6,4175) SMEAN 

4175 FORMAT! 7( 1X,F9.4) ) 

WR lTr!6, 1535) 

1535 FORMAT! /,10X, 'CUMULATIVE UTILIZATIONS AT 20 STEP INTER 
CVALS' ,/) 

^*RITE(6, 1540) 

154v F0RMAT!6X, 'TIME', 13X,' CPU' , 17X , ' lOP ' , 17 X , • MB W , 

C 16X,'MSPACe',llX,» IN QUEUE' ) 

C 

WRI TE(6, 1542 ) 

1542 FORMAT! 16X , • LONG ' , 5X , ' SHOR T ', 6 X LONG 5X ,' SHORT • , 

C 6X, 'LONG' ,5X, ' SHORT *, 6 X LONG • ,5X, • SHORT*, 

C6X,'LCNG', 5X, 'SHORT') 

C 

INl'X = TlME/20 
DC 420 KK=1,INDX 

WRITE! 6, 1544) IUTL(1 ,KK) , ! ! lUTL! I X , KK ) , I UTL ( I X ,KK+ IOC ) 
C) , IX=2,6) 

1544 FORMAT! 11 I4X , 16 ) ) 

42i CONTINUE 
GC TO 1 

lia. FORMAT! • MAIN NOW CALLS FEC FOR RMVL OF LEAD ENTRIES,! 
C .4 . ' ) 

104'J CALL FEC!2,0,C,0) 

5::. IF! IPASS!6 ) + 10-TIME) 501,1030,1030 

5'1 IF!2«IPASS(lO).GE,PARM!17).ANO,2*NJWM.GE,IPASS!2)) GC 
CTO 22 


ORIGINAL PAGE IS 
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IF(BCUU-RP4R{ l)*ACUU) 505,502,502 

502 IF(2*IPASS(7)“PARM(23n 1030,1030,505 

5U5 IF«BPUU-RPARCU*APUU) 510,507,507 

507 IF(2*IPASS(9)-PARM( 19n 1030,1030,510 

5i: IF(IPASS(ll).GT.O.AND.A*lPASSIlOKGE.PARM(l7n GO TO 2 

C2 

IF(NJWM-IPASS(11).GT.0.AND.4*IPASS( 10>.GE.PARM< 17) ) GO 
L TO 22 

IFnPASS(l)-IPASS(2»-NJHM+IPASS(m.GT.0> GO TO 22 

GO TO 1030 

98 WRITE«6,210) lASK, lASK, lOSH, IDSH 

21C FCRMAK//,' «, AA ,• ERROR *, A^, • ATTEf^PT TO EXECUTE SIMUL 
CATION BEFORE INITIALIZING SYS. PARAMETERS ', AA ,* EXECUT I 
tCN SUPPRESSED* ,AA, 'SIMULATION TERMINATED*) 

C 

CC TC 100 

97 URIT6(6,211) lASK, I ASK, IDSH, lOSH 

2U FORMAT!//,* • ,AA, 'ERROR *,A4, • COMMAND CARD ENCOUNTERED 
C* ,AA, 'PROBABLE CAUSE IS MISSING LOCAL OPTION CAROS', A4 
C, 'SIMULATION TERMINATED') 


GO TG 101 

99 WRITE (6, 202) I ASK, I ASK 

202 FORMAT!//,* *,AA,'ENO CF S I MULAT I ON ' , AA ) 
U. WRITE! 6, 999 1 

999 FORMAT! ' 1 ' ) 

STOP 

ENU 
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SUiHRCUTINE SETUP 

CC>'<M0N/8LK1/ lASK, IDSH,LIN0(33 )»LINA(33) f I8LK» IDLRflEQ 
CL,ID$T 

CGVWON/BLKl/ INAME,IDATA,HJ0T, I8ST,IEXIT»IFLD 
CCWMdN/BLK2/ IWRD( ICO) fFLD(50) 

CCi'<MCN/BLK5/ SET 
CG^MUN/8LK12/PARM(35) 

C0yM0N/BLKl3/RPAftUl ) 

CCyPQN/BLK 14/1 FLAG (47 ) ,ITAG 146) 

CCRM0N/BLK15/KNAME(46) 

CCyMQN/BLK16/IBWCTR(24) ,ICEC(5,40) . ICECSf I CPU ( 10 ) ♦ IPAS 
CS(2-)), IF£CS,IFEC(40,4),IPR0S(16),ISAVE(3,3),IVAL 

COV( 10) #MALC(256»5) , MALCS ,MAS ( 24 ) » MAVL ( 128 , 5 ) , WAVL 

CS,VQDNM(24),MTP1(24),NA(24) » NAA ( 24 ) ♦ NAB , NAG » NA 

CML(40)*NBLK( 129),NFB(3) *NJWM,NSCHED, NREQ(4 

C0t24) ,NTP( 24) ,NTR( 24) ,NUCA124) 

C 

INTEGER PARM 

INTEGER*2 I BWCTR» I CEC , I CECS ♦ ICPU, I PASS , I FE CS, I FEC , IPRO 
CS» ISAVE,lVALCV,MALC»MALCS»MASfMAVL.MAVLS,WCD 

CNP.MTPl ,NA,NAAtNAB, NAG ♦ NAML t NBLK , NFS » N JWM , N SC HED » 

CNRi:0,NTP,NTR,NUCA 
INTEGER*2 HFIX, I FLAG , I , J , I TAG , SET 
CGMM0N/BLK17/ I STCNT , I STAT ( 6 . 400 ) , I UTL ( 6t 2 00 ) 

INT£G£R*2 ISTATtlUTL 

DATA ISTR, lEND, lERR/ *,*END »,'*ERR»/ 
CCPMQN/BLK18/RUTL( 15) 
nlR ITE(6,201 ) LIND, LIND 
201 FORMAT! • »,33A4) 

vgRIT£(6,202) I A SK, I ASK, I ASK , I ASK 
2.2 FCRMATI//,' »,A4,« BEGINNING SYSTEM I NI T I AL I Z ATI CN • ,A 
C4,//,* *,A4,» INPUT PARAMETERS *,A4) 

C 

CG 1 1=1,46 
1 ITAGm=0 

1.' CALL ICARO 

IFniWRD{l).EO.ISTR),AND.(IWRD(2).EO,I£ND) ) GO TO 12 
IF (IWROI 1 ) .EQ. IDLR) GO TO 16 
DO 11 1=1,46 

IF( IWRO( D.NE.KNAMEl I) ) GO TO 11 

IF( { I WRD(2 ) .NE. lEOL ) ,0R.( I WRDl 3 ) .NE . IFLD ) . OR* ( IWRD(4). 
CNfc.D) GO TO 17 
C 

IFLAGm = l 
ITAG( I)=l 
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IF(1.LT.36) PARM( I )=FLD(H 
IF(I,GF.36) RPAR(I-35)=FL0(1) 

11 CONTINUE 
GC TQ 10 

12 DC 2 1=1, 2A 
IBWCTRI I)=0 

MAS II ) = PARMC 17)/PARMI2C) 
MCCNMl I)=0 
MTPim=0 
NAII )=0 

NAAI I ) = PARM( 2)/PARM( 15) 

NTPm=C 

MftU)=0 

NUCAII)=0 

DO 2 J=1,4D 

2 NREQ{J,n=C 
DC 3 1=1, IC 
IPASSI I )=0 
iPASsn^-io) =0 
I CPU! I >=0 
IVALOVI I ) =0 

3 CCNTINUE 

CU 300 1=1,3 
CO 3C0 J=l,3 
30C ISAV6n,J)=0 
CO 31C 1=1,16 
31.0 IPRt]Sm=0 

DO 4 I=l,4j 
DC 5 J=l,5 

5 icec(j,i)=o 

DO 6 J=l,4 

6 IFECII,J)=C 

4 NAML(I)=0 

DC 8 1=1,128 
N8LK( I ) =0 
DC b J=l,5 
MAVL(I,J»=J 
MALC(I,J)=0 

8 ^^ALCl (1 + 128) ,J)=D 
DC 9 1=1,3 
NF8m=C 

9 CCiVTINUE 

CO 9v 1=1,15 
9' HUTL(n=3.0 

IPA5S(7)=PARMI 23) 

IPASSI9) =PARMI 19) 
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IPASS(10)=PARM{ 17) 

ISTCNT=0 

ICiCS*-! 

IFcCS=-l 
MA1.CS=-1 
MAVLS=1 
PAVL( 1,1)=-1 
MAVU 1, 2) =-l 
MAVU l,3)=0 
MAVL( ltA)--l 
^'AVL( 1,5)=PARM{ 17) 

NF»{ 1 ) = l 

NAG=C 

NCLN=C 

NJWM=G 

NSCHFO^O 

IF ( IFLAG(47) .N6 .-I ) GG TO 14 
J = 

CC 13 I=l»46 

13 IF( IFLAGt I ) .eO.O) J=l 
IF(J.EO.l) GO TO 18 
lA SET=2 

IFLAG(47)=1 

RETURN 

16 kRiTF.{6,203) I ASK, I ASK , IDSH 

203 FCRMAK//,' *, AA ERROR A4 , ' COMMAND CARD ENCOUNTERED 
C DURING SYSTEM I jN I T I AL I ZA T I ON ' , A4 , • S I HUL AT I ON TERMINAT 
CEO 
SET = A 
RETURN 

17 WRITE(6,204) I A SK , I A SK , I OSH 

2CA FCRMATI//,* *,A4, ’ERROR', A4,* INVALID SYSTEM SPEC. CAR 
CC GR illegal spec. VALUE * ,AA, ' SIMULATION TERMINATED') 

C 

SET = A 
RETURN 

18 WRITE(6,205) IASK,IASK 

2C5 FCRMATt//,' *, A4, * ERROR ', A4, * THE FOLLOWING PARAMETERS 

C ARE UNDEFINED') 

C 

Cr 19 1=1,46 

19 IF( IFLAGI I ) .EO.C) WRITE(6,2D6) I DS H , KN AME ( 1 ) , I OSH 

2.6 FURMATI/,' *,3A4> 

SET = A 
RETU.RN 
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SUBROUTINE ICARD 
CCVMGN/BLK2/IWRD(100) *FLD( 50) 

IMEGER*2 K(80)»ISP(6)/* + *, t • /,MAXA/» 
CZ'/,MINN/“0*/,MAXN/'9*/,MINS/' */, I , I W , NF , I L , I T , K1 , NDG 
CT, ISET 

DATA IFLD, lERR, ICMTl, ICMT2/'<‘FL0*t '»ERR* t »C »,'♦ * 

C/ 

1 DC 2 1=1,1G0 

2 IWRD(I)=0 
CC 3 1=1,50 

3 FLU (H =0.0 

iW = l 

NF = 1 

4 iC=0 
READ(5,201) K 

2Gi FC<MAT(80Al) 

WRrTE(6,2C2) K 
G2 FORMAK* ',80AU 

IC=IC+L 

IF( ( IWRD( I > ,eO. ICMTl ) .AND. ( IWRO( 2) .eO. ICMT2 ) ) GO TC I 
IF{IC.GT.8G) RETURN 
t IFIK( IC) .EO. ISP(4) ) GC TO 5 

IF(K{ rc) .LE.MAXA) GO TO 8 

IF ( (K( IC) .GE.MINN) .AND. (K( IC) .LE.MAXN) ) GO TO 13 
DC 7 1=1,3 

IF<K( IC).EQ.ISP(I) ) GC TO 13 

7 CONTINUE 

IF{(IC. £0.80). AND. (K(IC). EO. ISP(5> )) GO TO 4 
IWRD( IW)=K{ IC)»(256**2)+ISP(4) 

IW=IW+1 
GC TO 5 

8 I L = i 
IT = 8 

9 IF(IC.GT,80) RETURN 

UsRD( IW) = IWRD( IW)*(K< I C ) /2 56 > * ( 256** ( 4- I L ) ) 

IF ( IC.EQ.80) GO TO 10 

IF(K{ IC+1) .GE.MINS) IT=5 

IF( IL.EQ.4) GO TO 12 

IF ( IT.EQ.5 ) GO TO 10 

IC=IC+1 

IL=IL+1 

GC TO 9 

Iv IF( (4-IL).EQ.C) GO TO 12 

K1 =4-iL 
DC 11 1=1, K1 
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11 IViRDnW) = I WRD( lW» + nSP<^)/256)*(256**{4“lL“I n 
1WRD( lW) = lWR0nw)-(256#*<4-lU ) 

GG TO 5 

12 tMRD( IW)=I WRD<tW)-l 

ivi=rw+i 

IF( IT.EO.5l GO TO 5 

IC=IC+l 

GO TO 8 

13 IF(IW.LT.3> GO TO 14 

!F( IWRO( IW-2I.EQ.IFLD) lW=IW-2 

14 IWRD( IW)=IFLD 
IW=lW+l 

NCGT=C 

ioec=G 

SIGN^l.D 

FCTR=i,0 

IF(K( lO.EQ. ISP(2M SIGN=-l.O 

IF((K(IC).6Q.ISP(U).GR.(K(IC I .EO. ISP( 2) ) I IC = 1C+1 
IFdC.GT.80) GO TO 19 

15 IFdKdO.GE. MINN). AND. (KdO.LE.MAXN)) GO TO 16 

IF(K( 10.60. ISP(3) ) GC TO 17 

IFINDGT.EO.O) GO TO 19 

IFdKdC).E0.ISPI4)).aR.IKnC).EQ.ISP(6)n GO TO 18 
IFdK(IC).e0.ISP(5)).AN0.( IC.e 0 . 80 n GO TO 4 
GG TO 19 

16 FLO(NF)=FLOINF)>nO.O + FLbAT( ( K ( I C ) +4032 ) /256 ) 

1C=IC+1 

lFdC.GT.80) GO TO 17 

NDGT=NDGT+1 

GO TO 15 

17 IFdDcC.GT.O) GO TO 19 
IC=IC+1 

icec=ic 

IFdC.GT.80) GO TO 18 
GG TO 15 

18 IFdDEC.GT.O) FC TR = 1 C . 0**FLOA T (I C- 1 DEC ) 

FLD( NF ) =SI GN*FLD( NF ) /FCTR 

NF=NF+1 

IWR0( IW) = IWROdW) + l 
I W= I W+ 1 

GC TO 5 

19 lWRDdW)=IERR 
IF(K(80).NE.ISPI5) ) RETURN 
READ(5,2C1) K 

CC TC 2C 
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SUBROUTINE BULK 

CON(«QN/BLKl/IASK,IOSH,LINOi33) ,LINA(33) ,IBLK, IOLR,IEQL 
C«ICST 

C0f'N0N/8LKl/INAME,IDATAtMJ0T, IBST, lEXIT, IFLO 
CCMM0N/BLK2/IWRD( 100) tFLD(50) 

CCf'M0N/BLK3/ I D I ST ( 25 ) , F ( 25 , 4 1 ) , NO I ST 
CG)«MON/0LK4/NAME(75,0) tOATAlTStg) ,NJOB 
CQI^f^CN/eLKS/rSET 

DIMENSION IAPX( 9) ,FMAXC9) ♦FMIN(9) 

INTEGER*2 NDI ST ,NJ08 , 1 SET, I JOB » 1 » J t N,M 
REAL NA/« NA «/ 

DATA ISTR, ICMA, lENO, IBLC/»* ',*ENC 't'BLOC*/ 

DATA IFX, IFN, lSEEO,IFCN/*FMAX* ,*FHIN* , * SEED* » ‘FCTN*/ 
DATA ieRR/'*ERR*/ 

ISL'=l 
NJOBsC 
IJ0B=1 
DC 1 1=1,75 
DC 2 J=l,8 
NAME( I ,J)=D 

2 CONTINUE 

I CONTINUE 

3 WRITE(6,201) LINA 

201 FORMAT! • *,33A4) 

WRITE16,202) IASK,IASK 

2’2 FORMAT!/, • •,41X,A4,' JOB GENERATOR INPUT PARAMETERS • 

C,A4) 

4 NJQB=NJ0B+1 
CALL ICARD 

IFdWRDd) .GT.O) GO TO ll 

IF( (I WRD( 1 J ,NE, INAME) .OR, ( IWROI 2 ) .NE .lEQL) ) GO TO 9 
IF(NJOB.GT.75) GO TO 10 
N=3 
M = 1 

IF( IWRD(N) .NE.ISTR) GO TO 6 
NARE(NJ06,M)=IWRD(N) 

5 N = N«-1 

6 M=N+1 

IF( IWRD(N) .GE.O J GO TO 8 
IF(M.(,T.8) GO TO 37 
NAVE(NJOB,M)=IWRD(N) 

N = N+ 1 

IFUWRDtN) .EG.O) GO TO 7 
IF( IWRO(N) .NE. ICMAJ GO TO 8 
GO TO 5 
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7 IF( ( IWRD( 1 ) .EO.ISTR) .AND. (N.EQ.4) > GO TO 9 
IFIN.EQ.3) GO TC 9 

GC TQ 4 

8 WRITE(6,203) I ASK, I ASK, lOSH 

203 FDRMAT(//,' ' ,A4, • ERROR * ,A4, * IMPROPER NAME, MISSING CO 
CMMA,GR INVALID DATA ENTRY* ,A4, » SI MULATION TERMINATED*) 
C 

ISET=4 

RETURN 

9 WRITE(6,204) I ASK, I ASK , IDSH 

204 FORMATt//,' • , A4 , * ER ROR * , A4, * PARAMETER DEFINITION CAR 
CD IS INVAL I D,MI SSI NG*OR OUT OF ORDER* ,A4, * SIMULATION T 
CERVINATED* ) 

ISET=4 

RETURN 

10 WRIT£(6,205) I ASK , I ASK , IDSH 

2C5 FORMAT!//,* *, A4 ,* WARNING* , A4 , * ATTEMPT TO GENERATE MO 
CRE THAN 75 JOBS* ,A4, * EXCESS ENTRIES IGNORED*) 
t 

GC TO 4 

11 IF( IWRDC 1) .N£. IDLR) GO TO 100 

IF( IIWR0{2).EQ.IEXIT).AN0.11WR0(3).EQ.IBST)) GO TO 34 
IF! nWRD(2>.EQ.lEND) .AND.! IWRD(3).EQ.IBLC) ) GO TO 12 
IjO WRITE(6,206) IASK,IASK,I0SH 

206 FORMAT!//,' », A4 ,' ERROR *, A4 , * INVALID EXIT, INVALID EN 
CD BLOC, OR ATTEMPT TO EXECUTE NEW COMMAND BEFORE EXIT 
CFRGM BST ROUTINE', A4) 

WR1TE!6,207) IDSH 

207 FORMAT!' • , A4 , * S I MUL AT I ON TERM I NAT ED ' > 

I SET=4 

RETURN 

12 CALL ICARD 
NJOB=NJOB-1 

I F! ! IWRO! 1 ) .Nt .ISEED) .CR. ! IWRO! 2) .NE.IEOL) ) GO TO 13 
IF { ! I WRO! 3) .NE. IFLO) .OR. ( IWRD! 4) .EO. lERR ) ) GC TO 6 
IF! IWRD(4) .GT.l) WRITE!6,208) I A SK , I ASK , I D SH 
ZCB FORMAT!//, ♦ ' , A4 , ' W ARN 1 NG * , A4 , ♦ MORE THAN 1 VALUE HAS 

CB5EN SPECIFIED FOR SEED VAR I ABLE ♦ , A4 , ' EXCE SS ENTRIES I 
CGNGREO*) 

ISD=IFIX!FLO! I ) ) 

CALL ICARD 

13 1F!!IWRD!1).NE.IFCN). OR. !IWRD(2). NE.IEOL)) GO TO 9 
N=3 

M = 1 

14 IF(M.GT.9) GO TO 15 

IF! IWRD(N) .GE.O) GO TO 8 
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IAPX(M)=IWR0(N) ; 

N=N+1 

IF(IWRD{N).EQ.0) GO TO 16 
1F( IWRD(N> . ME. ICMA) • GO TO 8 
N=N + 1 

GC TC lA 

15 WRITE(6,209) lASK, lASK, lOSH 

209 FORMAT(//,^ * , AA, • WARN I NG* t A4 , • MORE THAN 9 DIST. APPR 
COXIMATION CURVES SPEC I FI ED* t A4» * EXCESS ENTRIES IGNORED 

C*I 

16 IF(M.LT.9) GO TO 21 

call icard 

IFJ(lWRDm.NE.IFXJ.0R.nWR0(2).NE.IEQU) GO TO 9 
IF((lWRD(3»*NE.IFLD).OR.nWROIA).EO.IERR)) GO TO 8 
IF(IWRD(4) .LT.9) GO TO 22 
IF( IWRD(4) .E0.9) GO TO 17 
WRITE(6r210) I ASK , I ASK , IDSH 

21C fORMAT«//f* • ,AA, 'WARNING* tAAf • MORE THAN 9 MAX# OR MI 
CM. PARAMETER VALUES SPEC I F I ED * t AA, ' EXCESS ENTRIES IGNO 
lHED') 

17 L'C 18 1 = 1,9 

IFIFLDI I I.LT.O) go TO 9 
FMAX( I)=FLD( I) 

18 CCNTINUE 
CALL ICARO 

IFU IWRO( 1 ) «NE. IFN) .OR. (IWRD( 2 ) ,NE .leOL n GO TO 9 
lF{(lWRO(3).Ne.IFLO).OR.(IWRO(A).eQ.IERRM GO TO 0 
IF( IWRD( A> .LT.9) go TO 22 
IFl IWRD(A) .EQ.9) GO TO 19 
WRITE(6,210) lASKflASK, lOSH 

19 CC 2C 1=1,9 

IF(FLDl I ) ,LT.O) GO TO 9 
FMINd )=FLD{ I ) 

2C CCNTINUE 

GC TO 23 

21 WRlTE(6,21l) lASK, I ASK, lOSH 

211 FfiPMAT(//,* ' ,AA, 'ERROR', AA,' FEWER THAN 9 DiST. APPRO 

CXIMaTIONS SPECIFIED* ,AA, 'UNABLE TO GENERATE JOB PARAME 
CTERS') ! i 

IS£T=A 

RETURN 

22 wRITE(6,212) I ASk , I ASK, IDSH 

212 FORMAT(/,* ', AA ,' ERROR *, AA, * FEWER THAN 9 MAX. OR MIN. 
C PARAMETER VALUES SPEC IF I ED* , AA ,* UNABLE TO GENERATE J 
COB PARAMETERS') 
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IS£T=^ 

RETURN 

23 CO 2M I-lf9 

nc 25 J=1,NDIST 

IF( ICIST(J).EQ.IAPX( I) ) GO TO 26 

25 CONTINUE 

WRITE (6, 213) IASK,IASK,IAPX(I) ,IOSH 
213 FORMAT(//f* •» AA, • ERROR '» AA # » UNABLE TO LOCATE SAA,* 
CCN STAT. DISTRIBUTION TABLE ' tAAf * UNABLE TO GENERATE JO 
CB PARAMETERS’) 

ISET=A 

RETURN 

26 SPALL=F(J,2) 

BIG=SMALL 

DC 27 K=3,2L 

IF(F(J,K).LT. SMALL) SMALL=FIJ,K) 

IF(F( JiK).GT.BIG) BIG=F(J,K) 

27 CONTINUE 
SCALE=FMAX ( I ) 

IFIBIG.NE. SMALL) SC AL 6= ( FMAX ( I I -FM I N ( I ) ) / ( B IG-SMAL L ) 

UQ 29 K-IJCB,NJ08 
IY=I SD#65539 
IF(IY.GT.O) GO TO 28 
IY=I Y+21A7A836A7+1 

28 YFL=FLOAT{ lY)*. A656613E-9 
ISD=IY 

It\DX = IFIX( l9.999»YFL)+2 

OATAIK, n=FMIN( I )+ SC AL6*( F ( J , I NDX ) - SMALL ) 

IFU I.GE.D.ANO.n.LE.S)) OAT A ( K , I ) = FLOAT { IFIXIDATAIK, 

Cl ) ) ) 

31 IF((NAME{K,1).NE.ISTR).AND.(I.E0.7)) DATA(K,I)=NA 

IH({NAME(Ktl).EQ.ISTR),ANO.( I.EQ.8)) DATA (K, I )=NA 

29 CONTINUE 

2A CONTINUE 

21A FORMAT!//, • *,AA,' CCMMON STATISTICS JOB BLOCK *,AA) 

213 FORMAT!/, • *,aA,‘JOB V, 2 AA , 3X , » 6P= » , F7 . 0 , 1 OX , * TMR= • , F7 
C . : ,/,20X , *CR=* ,F7.C,lOX, •I-0 = » ,F7 . 0 , / , 20X , * N 1= • , F7 

C.C,5X,»I-0 0IST=’,2X,AA,/,19X, •MIX=',3X,FA.2,11X,'RR=' 
C ,F7. I,/, 19X, • IAT=* ,3X,AA,10X, *DVT=* ,F7. I ) 

C 

216 FORMAT!* PREDEC ESSORS * , 5 ! 2X , AA ) ) 

217 FORMAT!/,' *,AA,*JOB ’ ,2 AA , 3X , • EP- ' » F7 . 0 , lOX , • TMR= • , F7 

C,'. ,/,20X , »CR = ' ,F7,C,10X,»i-0=* , F7 , 0 , / , 20X , *N 1 = ' , F7 

C.: ,5X, • I-O DIST=* ,2X,AA,/, 19X, *MIX=» ,3X,FA.2, 11X,*RR=* 
C , 3X,AA,/, 19X, ' I AT= * , F7. 1 , lOX , • DVT= • ,F7. 1) 

C 
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HflITE(6,2ia> lOSHtlAPX 

2ia FORMAT(/,» OISTRI6UTICN APPROXIHATIONS USED* , A4t 2X , • EP 
C— »»A4,9X, ,AA,/,39X, VCR— » , A4 ^QX , • I-O — 'fA9 

Cf/,39X,'NI — •,A4,9Xr*f'IX — • , A4 » / ,39X , • RR— *,AA,9X,» 
ClAT — • tA4,/,38Xt 'DVT — **A4) 

WR1TE(6,219) IOSH»IOSH 

219 FORMAT(/»* SA^t'END OF JOB BLOCKSAA,/) 

WRirE(6,201) LIND 
I JC8-NJ08+1 
GO TO A 

3A WRITE(6,999» 

999 FORMAT('l') 

;MJOB=NJOB-l 

WRire(6»29U LINA, LINA 
V.RITE(6,220) TASK, TASK 

22- FORMAT! //,A8X,AA, * COMPLETE BULK STORAGE TABLE *,AA,// 
C) 

WRITc(6,20l) LINO 
CO 36 I=1,NJ06 

IF(NAMF(I,l).N£,ISTR) GC TO 35 

WRITE (6, 21 5) IDSH,NAME( I , 2 ) , lOSH, I DATA (I #J) , J=l,5) ,NAM 
CE { I , 3 ) , (DATA! I, J) , J=6,9) 

WRITE(6,216» (NAME! I ,J) ,J=A,8) , 

GC TC 36 

35 hRITE(6,2l7) I OSH,NAME ( I » 2 J , I OSH, ( CATA (I , J ) , J*1 , 5) , NAM 
CE(I,3», (OATAU, J),J = 6,9J 

C 

WR 1 TE ( 6 , 21 6 ) 1 NAME U , J ) , J=A , 8 ) 

36 CONTINUE 
WRITE(6,221) IOSH.IOSH 

221 FORMAT!//, • »,AA,'END OF BS;T',AA,//) 

WRITE!6,2Cl) L I NO , L INA ,LI NA 
ISET=2 

WRITE!6,999) 

RETURN 

37 WRITE!6,222) I A SK, I ASK , NAME I N JOB ,2 ) , I DSH 

III FORMAT!//, V'fA4,‘WARNINGSAA,‘ ATTEMPT TO ENTER MORE 
CTHAN 5 PREDECESSORS IN PREO. FIELD OF JOB «,2A4,*EXC6S 
CS ENTRIES IGNORED') 

GC TC 4 
END 



298 


SUBROUTINE STAT 

CD'^MON/BLKl/I ASKi IDSH,LIND(33) fLlNA(33)»IBLKf IOLR» lEQL 
CtlOST 

CCKMON/BUKl/INAMEt lOATAfMJOTf IBST tlEXITflFLD 
C0MMQN/BLK2/IWR0I 103) tFLOI 50) 

CCMM0N/BLK3/ I0IST(25)»F(25tAl),NDIST 

C0MM0N/BLK5/ISET 

INTrGER*2 NOIST, I , J»K» I SET,L 

DATA I6RR/'*ERR'/ 

DC 1 1=1,25 
ID1ST(I)=0 
CO 1 J=l,Al 
F (I , J > =0 . 0 

1 CONTINUE 
NDIST=1 

2 IF(MDIST,GT.25) GO TO 12 

13 CALL ICARD 

IFUWRDI 1) .GT.O) GO TO lO 

IF( nWRO(l)*NE,lNAMe).GR.(lWRO(2).NE.IEOL) ) GO TO 8 
IF ( IWRD( A) .N6.0) GO TO 8 
IF( IWRO( 3) .GT.OI GO TO 9 
ID1ST(N0IST)=IWRD(3) 

CALL ICARO 

IF( ( IWR0(1).NE,I0ATA).QR.( IWR0(2).NE.IE0L) ) GO TO 8 
IF( ( IrtR0(3).NE. IFLD) .0R,( IWRD(A) .EQ.IERR) ) GO TO 9 
K=IWRD( A) 

IF(K-Al) 3,5,7 

3 WRITE(6,201) I ASK, I ASK , lOI ST ( NOI ST ) , IDSH 

201 FORMAT!//, » • , A A , • WARN I NG* , AA, ' FEWER THAN Al DATA POI 
CNTS HAVE BEEN SPECIFIED FOR ', 2 AA ,* DEFAULT VALUE=O.OM 
C 

5 CO 6 1=1, K 
F(N01ST,I >=FLD( I ) 

6 CONTINUE 
NDIST=NDIST+1 
GO TO 2 

7 WRITE(6,2:'2) I A SK, I A SK , 1 0 I ST ( NO I ST ) , I OSH 

2C2 FORMAT!//,* * , A A , ♦ WARN I NG * , AA , * MORE THAN Al DATA POIN 
CTS HAVE BEEN SPECIFIED FOR *, 2 AA, » EXCESS POINTS IGNORE 
CD' ) 

K = Al 
GO TO 5 

8 WRITE!6,203) I A SK, I ASK , I DSH 

2.3 FORMAT!//,' • ,AA, • ERROR ', AA, ' IMPROPERLY FORMATED OR M 
CISSING NAME OR DATA DEFINITION CARD* , AA , • S I MULAT ION TE 
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CRMlNATEOn 

ISET=A 

RETURN 

9 WRITE(6,204) I ASK# I A SK , IDSH 

2C4 FORMAT(//,» SAA.'ERROR'fAA#* IMPROPER DISTRIBUTION NA 
CME OR ERROR IN DATA F I ELD* , A4# ' SI MULAT I ON TERMINATED* » 
C 

ISET=4 

RETURN 

le IFIIHROI 1) .NE.IDLRI GO TO 11 

lFniMROI2).NE. IEXIT).OR.( IWRD(3).NE.IDST) ) GO TO 11 
NOlST=NOIST-i 
DO 102 I=ltNDIST 
DO 102 J=:^1»NDIST 

IFM iniSTU > .NE.IDISTIJ) ).0R. U ,E0* J) ) GO TO 1U2 
WRlTE(6t207J lASK# lASK, lOISTIJ) , lOSH 

2C7 FORMAT!//#' • , A4 , • WARN I NG • # A4 # * DIST. NAMED 'tA4,* HAS 
C BEEN ASSIGNED MOKE THAN ONE SET OF DATA POINTS* ,A4, • F 
CIttST SET USED*) 

K = J*1 

00 101 L=K,NOIST 
ICISTIL-l)=!DIST!L) 

DO 101 M=l,41 
FI (L-1) ,M)=F(L#M) 

101 CONTINUE 

NOIST^NDIST-1 

1C2 CONTINUE 
IS€T=2 
RETURN 

11 WRITEI6,2:5) lASK, lASK, IDSH 

2:5 FORMATI//#* • , A4 , • ERROR • , A A , * INVALID EXIT OR ATTEMPT 
CTO EXECUTE NEW COMMAND BEFORE EXIT FROM GIST ROUTINE*# 
CAA, • SIMULATION TERMINATED*) 

C 

ISET=A 

RETURN 

12 WRITE(6,206) I ASK , I ASK i IDSH 

2C6 FORMATI//#* * # A A # • WARN I NG * # AA # * ATTEMPT TO ENTER MORE 
CTFAN 25 DISTRIBUTIONS ON STAT. TABLE •# AA #* EXCESS ENTRI 
CES IGNORED*) 

GO TU 13 
END 
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SUBROUTINE PRNT 

CONMON/BLKl/ I ASK , I DSH, LI NO ( 33 > ♦ L I NA ( 33 I , I BLK , IDLR , I EQ 
CL, TOST 

COKMON/BLKl/ INAME, IOATA,MJOT,IBST, lEXIT, IFLD 
CCf'MON/BLKS/ 1 0 1 ST t 25 ) , FT 25 ,41 ) , NO I ST 
CCMM0N/BLK5/ SET 
CQI^M0N/BLK6/ MNAME(8,64) 

COf'MON/BLK?/ JM2(27,64) 

CCNMON/BLKll/ RTIME 

INrEG6R=«'2 SET, JM2,MIX, IP, I0SH,6P,MREQ,NDI ST,KY,ISUM, I 
C,J,K,L,« 

DIMENSION NB ITS (4) , I VALOV ( 10) ,KY(14) 

1NTEGER»2 IVALQV 
DATA ISTR/*# •/ 

WRIT£(6,999) 

999 FOttMAT(*lM 

WRIT£(6,20l) LINA 
WRIT6(6,216) lASK, RTIME, lASK 
216 FORMAT!/,* *,A4,» TIME *• , F8. 3 , A4, / ) 

WRITE(6,20l) LINA, LINA 

201 FORMAT! » »,33A4) 

WRITE! 6, 202) I ASK, I ASK 

202 FORMAT! /,48X,A4, • MAIN JOB DESCRIPTION TABLE *,A4) 

DO I 1=1,64 

IFTMNAME ! 2, I ) .NE.C) GO TO 2 

1 CCNTINUE 
WRITE(6,203) IOSH,IOSH 

203 FORMAT!/,' ',A4,* NO JOBS ON MJ0T*,A4,/) 

GG TO 15 

2 WRI TE !6, 1000) 

l.(^ FORMAT! /, lOX, • STATUS WORD BITS RIGHT TO LEFT'/, 

C lOX,* I READY', IIX,' 2 IN I T I ATED * , 7X , * 3 

C WAITING CPU'/, 1CX,» 4 WAITING I0P’,5X,' 5 

CWAIT MEMORY', 5X,' 6 IN HOLD'/, lOX,' 7 PREEMPTED 

C',7X,‘ 8 MODE ,CPU/IOP* ,4X, » 9 PERIODIC'/, ICX,'1 

C. RESIDENT' ,8X, *11 S.I MPLEX/TMR ' , 5X , • 12 WAIT I/O CCM 
CP.'/, 10X,'13 IN IFEC',9X,'l4 LOAD ' , 1 2X , • 15 NOT USE 
LD'/, 10X,'16 NOT USED*) 

C 

DO 14 1=1,64 

IF!MNAME(2,I ).EQ.J) GO TO 14 
WRITE (6, 204) I DSH,MNAM.E ! 2 , 1) , I DSH , I 
2i.4 FORMAT!/, * ',A4,» JOB ' , 2 A4 , 3X , • LOC AT I ON = ',12) 

ISUM=0 
DC 4 J = l,,4 
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IF( JM2( J»l,n ) A,4,4CC 
ISUM=iSUM+l 
KY( ISUM)=JM2(J*l, n 
W CONTINUE 

N=l ' 

v:5 J22=JM2(22tI ) 

NL=N *1 

CALL UNMIX (NtNLfJ22t INO) 

IF(IND) 430,430, 410 

41 . DO 415 J*l,10 
415 IVAL0V(J)=0 

CALL OVFLMG(l,I,N,IVALOV, 101 
CO 425 J=1 ,10 
lF(IVALQV(jn 425 , 425,420 

42. ’ ISUM=1SUM+1 

KY( rSUM)=rVALOV( J» 

425 CONTINUE 

4 3<. . GO TO ( 5,01 ,N 

5 IF( ISUM.EO 4 O) GC TO 6 

^^RITc(6,205) . 

2.5 FORMAT! /,23X, •PREDECESSOR/LOCATION* ) 

WRI TE(5, 21^> ( (MNAME ( 2 ,KYU )) , KY ( J ) ) , J*l, ISUM) 
212 FnP.MAT(2CX,4(A4,«/»,I2,2X) ) 

GO TO 601 

6 WKITE(6,213) IDSH.IDSH 

213, F0PMAT(20X,A4, 'NO PREDECESSORS ’, A4 ) 

6 . *;l ■ ISUM=C 

CO 7 J=l,2 

N=JN2( J+5, n 

CALL UNMIX(7,0,N, INOl) 

CALL UNMIX(14,7,N,IND2) 

IF(INCl) 701,701,700 
TOw iSUM=ISUM+l 

KYI ISUM)=IN01 

7. a IF(IND2) 7,7,702 

7.2 ISUM=ISUM+1 

KYI ISUM)=IND2 

7 CONTINUE 
N ^2 

GC TO 405 

0 IFI ISUM.cQ.O) GO TO IC 

T£(6,206I 

2v6 FORMAT! /,22X, • SUCCESSORS/LOCAT ION* > 

k*RIT6(6,2l2) I (MNAME(2,KY(J) ) , KY U ) ) , J = 1 , I SUM ) 

GO TO 11 

i: ^«RITE(6,214) IOSH,IDSH 
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21 ^ F0RMAT(20X,AA, • NO SUCCESSORS *, A4 ) 

11 N=jM2(27,n 

CALL BITWRTCN, A,NBI TS) 

WRITE(6,208> N8ITS 

208 FCRMAT(/f lOXf 'CURRENT STATUS WORD * ',4(lX,A4n 
IP = JM2(10* n/l28 
MIX*JM2( 10,1 )-IP*128 
IC5H = JM2(ll, n/1024 
EP=JM2(12, n/1024 

MREQ=JM2(17,n-(JM2( 17,n/204B)*2048 
MNARC=JM2( ll,I)-l JM2( ll,I )/l024)*1024 
IST0VC=JM2(12, I )-( JM2(X2, I )/1024)«l024 
RNARI = JM2{13,n-{JM2(13,n/l02A)*1024 
IST0VI = JM2<2l,I )-< JM2(2l,n/l02A»oi024 
MBLK1=JM2( l,I)/128 

MBLK2=JM2( 19,1) -(JM2( 19,1 )/256) *256 
RBLK3=( JM2(17,I )/2048)*16 

C +( JM2(19,I)-( JM2(19,I )/4096)*4C96)/256 

C 

WRITE (6, 20 9) EP ,MR6Q, JM2( 15, I ) , JM2I9, I ) , M I X , JM2 ( 14, 1 ) , 
CJI« 2 ( 8 ,n ,JM2( 25,n,JM2( 20,1), JM2( 26,1 ), IP, JM2( 18,1 ),MN 
CARC,ISTDVC, MNARI , ISTOVI ,MBLKl,M6LK2,MBLK3 

C,J<^2(22,I) 

2'v9 FORMAT!/, 2CX,'EP =• , 16, lOX, 'MMS * * , 1 6, 5X ♦ • VSF ( I-O ) =', 
CI6,10X,'NMA ,I6,/,19X,*MIX = • , 1 6 , 7X , * RR/ 1 AT =*,16,1 
CCX,*TLE =', I6,11X,'TT = » , 1 6, / , 19X , ' MPT = • , 16 , 5X , • N I P( 
CI-Q) =• , I6,11X, 'IP =• ,I6,10X, 'CCD = • , 1 6 , / , 17X , ♦ MNARC = 
C , I6,7X, ♦ I STDVC =', 16, 3X, 'MNARI =',I6,7X, 'ISTCV 

Cl =• , I6/17X, 'MRLKl = * , I 6, 8X , * MBLK2 =»,I6,8X, 

C 'MBLK3 =• ,I6,9X, * IFOV =',I6) 

C 

IF! lOSH.EQ.O) GC TO 13 
WRITE(6,21?) IDIST! lOSH) , lOSH 
21C FCRMAT! /,24X, * I-O DI ST/ LOCAT I ON ' , 5X , A4 , * / ' , I 2 ) 
WRITE(6,201) LIND 
GO TO 14 

13 WRITE(6,215) lOSH.IDSH 

215 FORMAT! /,24X,A4, 'NO l-C SHAPE INDICATED FOR THIS JOB', 
CA4) 

IF! JM2( 24, I ) .NE.O) WRITE!6,2ll) lOSH.IOSH 
211 FORMAT!' ',A4,'THIS JUB CONTAINS OVERFLOW FIELDS', A4,/ 
C ) 

WRIT£!6,2C1) LIND, LIND 

14 CONTINUE 

15 WRITE(6,201) LINA, LINA 

SET = 2 
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RETURN 

ENU 
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SUBROUTINE CLEAR 

CO'^MON/BLKl/ I4SK,I0SH,LIND(33) ,LINA133),IBLK»IDLR,IE0 
CLflDST 

CCMMON/BLKl/ INAMEf IDATA,MJDT,IBST»IEXIT. IFLD 
COWMON/BLK4/NAM6(75 i 8) ,0ATA(75,9) ,NJOB,NJOBER 
C0f^M0N/BLK5/ SET 
CCN'M0N/BLK6/ MNAWE(8t64) 

CO.VMON/BLK7/ JM2(27,64) 

COWMON/BLK9/ J0VF(1024) 

CO^'MON/BLKIO/ FLAG(64) 

IN‘TEGER*2 SET , JM2 , JOVF , I » J »FLAG. N JOB , NJOBER 
t»RITE(6«20U LIND 
201 FGRMAT(* ',33A4) 

DC 1 1=1,64 
FLAGU )=0 
CO 2 J=l,8 

2 N>NAM£( J,I )=0 
00 3 J=l,27 

3 JM2(J,I)=0 

1 continue 

CC 4 1=1,1324 

4 JCVF(I)=Q 
NJCBER=0 

KRITE(6,2J2) IASK,IASK 

2j2 FCRMATI//,' *,A4,' MJOT HAS BEEN ERASED *,A4,//I 
WRITE(6,201) LIND 
SET = 2 
RETURN 
END 



305 


SUBROUTINE ENTER 

CCKMON/BLKl/ I A SK, I OSH*LI ND ( 33 J *LI NA( 33 ) , I BLK* lOtR . I EQ 
CL»IDST 

CCWMON/BLKl/ INAME, lOATA.MJOT. 1BST,IEXIT,IFLD 
CCyM0N/BUK2/ I WRD( 103 ) ,FLD( 50 ) 

. CQMMON/BLK A/NAM E( 75,8) t DAT A(75, 9) ,N JOB, NJOBER 
C0RM0N/BLK5/ SET 
CCf'M0N/BLK6/ MNAME(8,64) 

INTEGER#2 N JOB , NJOBER , SET , I , J , K ,N 

DATA IGMA, ISTR, lEND/* , »,»♦ ‘t'ENO */ 

1nRITE{6,2CU LIND 
2C1 FORMAT!' »,33A4) 

rtRITE(6,202) lOSHtIDSH 

2j2 FORMAT!//, • • , A4 , • BE G I N M NG JOB ENTRY PROCESSING', AA) 

1 CALL ICARD 

IF! IWRO(I) .GT.O) GO TO 10 

IF! ! IWRD! I ).NE. INAME) .OR, ( IWRD(2) .NE, lEQL) ) GO TO 11 
N = 3 

2 IK IWRD(N) .GT.O ) GO TO 12 

IF! IWR0!N) .EO.O ) GO TO 11 
DO 3 I=l ,NJOB 

IF(NAME( I ,2),E0.IWRD(N) > GO TO A 

3 CONTINUE 

WRITE! 6, 20 3 I I A SK , I ASK , I WRD ( N ) ,IDSH 
2C3 FORMAT!//, • • , A A , * ERROR • , AA, • UNABLE TO LOCATE ',A4,' 
CCN BST* ,AA, * SIMULATION TERMINATED') 

G ^ ■ 

S6T=A 

RETURN 

A DC 5 J=1,6A 

IK^'NAME!2,J)*Ee.lWRD(N) ) GO TO 13 

5 CONTINUE 

CC 6 J=1,6A 

IF{MNAME!2,J).EC.O) GO TU 7 

6 CONTINUE 

WRITE(6,2 jA) I ask, I ask, I DSH, IWRD (N) 

2:a FORMAT!//,' • , AA , • W ARN ING * , AA , • MJDT IS FULL ' ♦ A A , • UN AB 
OLE TO ENTER *,AA) 

C 

GO TO 9 

7 DC 8 K=l,8 

9 MNAME!K,J)=NAM£(I,K) 

NJ0BFR=NJ0D£R+1 

WRITE(6,205) IDSH, IWRD(N) , IDSH 
2C5 FCRf^ATC *,2AA,' ENTERED*, AA) 
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9 N=N+1 

IFtlWRO(N) .EQ.O) GCl TO i 
IF nWRO(N) .NE. ICMA) GO TO 12 

GG TO 2 

IQ IF( ( IWRO( n.NE.lSTR) .□R.(lWRD(2).NE.IENDn GO TO 14 

SET = 2 

CALL RECHEK 
WRITE(6»206) IDSH,IOSH 

2.6 FCR«AT(//,» *,A4,*JO0 ENTRY PROCESSING COMPLETE* fA4, // 

C ) 

WRITE(6,20l) LINO 
RETURN 

11 WRITE(6,207) I ASK » I ASK , IDSH 

2C7 FORMAT!//,* *, A4, ♦ ERROR *, A4, * NAME CARD (NAME=) IS INV 
CALID OR MI SSING* ,A4, ‘SIMULATION TERMINATED') 

■ C . 

S£T=4 

RETURN 

12 WRITE(6,208) I ASK , I ASK, I DSH 

2Q8 FORMAT!//,* ', A4, * ERROR *, A4, * INVALID JOB NAME OR MISS 
CING COMMA BETWEEN NAME ENTR I ES ' , A4 , • S I MULA TION TERMINA 
CTEC* ) 

SET = 4 
RETURN 

13 WRITE!6,2C9) I A SK , I ASK , I WRD ! N ) , I OSH 

2C9 FORMAT!//,* ♦ , A4, * WARN I NG* , A4 , • JOB *,A4,* HAS ALREADY 
C BEEN ENTERED ON MJDT* ,A4, *J06 ENTRY IGNORED*) 

C 

GC TO 9 

14 mRITE!6,210) I ASK , I ASK , IOSH 

21Q FORMAT!//,* • , A4 , * ER ROR * , A4 , * END OF JOB ENTRIES CARD 
C(«END) IS MISSING OR INVAL I D* , A4, • SI MULATI ON TERMINATE 
CD* > 

S£T = 4 

RETURN 

END 
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SU6R0UTINE RECHEK 

C0MMQN/6LKI/ I ASK , lOSH *LIMDI 33 ) , LI NA ( 33 ) t I BLK, IDLR*IEO 
CL.IOST 

CGf'MCN/BLKl/ I NAME , I DATA, MJDT , I SST , lEX I T, I FLD 
COMMON/ BLKA/ NAME < 75 , 8 ) , DATA ( 75 , 9 ) ,NJOB 
C0MMCN/6LK5/ SET 
C0MM0N/BLK6/ MNAME(8,6A) 

COMMON/BLK3/ I DI ST ( 25 ) , F( 25, Al ) ,ND I ST 
CCMMQN/8LK7/ JM2(27,6A) 

COMMON/0LK8/ TIME 
CCMM0N/6LK10/ FLAG(6A) 

CCMM0N/BLK12/PARM(35) 

INTEGER PARM 

DIMENSION LIST(63» ,I0PL(32,2) 

INTEGERA2 HF I X , SET , JM2 ♦ I , N , NT, J, K , L ♦ M,NDPL ♦ NJOB, ND I ST, 
CTIME, FLAG 

DATA ISTR, INCNE/*# 'f'NONEV 
ISD=PARM(33) 

DC 1 1=1,63 

1 LIST(n=0 
N=.. 

NT = C 
NCPL=C 

2 DC 13 1=1, 6A 
CC 13 J=A,8 

IF(MNAME(J,n.EQ.O) GO TO 13 
IFIMNAMEUfl ).NE.MNAM£(2,I n GO TO 3 
WRITt(6,201) lASK, I ASK,MNAME( J, I) , IDSH, IDSH 
2-n FORMAT!//, • SAA, ’WARNING’ ,AA, • JOB ’.AA,' HAS BEEN LI 

CSTEO AS ITS OWN PREDECESSOR * ,AA F I XUP MADE • , AA, 'MJDT 
CLOAC CHECK CONTINUING’) 

MNAME! J, I ) =0 

3 CC A K=l,6A 

IFIMNAME! J,I ).tO.MNAME(2,K) ) GO TO 10 
A CONTINUE 

DC 5 K=1,NJ0B 

IF(NAME(K,2).EG.MNAME( J,I> ) GO TO 6 
5 CONTINUE 

write (6,2 32) IASK, IASK,MNAM£{ J, I ) ,MNAME( 2, I ) , IDSH 
2.,Z FORMAT!//, • ’, AA, • ERROR • ,AA, ’ JOB ',AA,* LISTED AS PR6 
CCECESSOR TO SAA,' CANNOT BE LOCATED ON 8S T’ , AA, • S IMUL 
CATION TERMINATEc’) 

set=a 

RETURN 
on 7 L=1,6A 


6 



308 


lF(MNAME{2tL).EQ.G) GD TO 8 

7 CONTINUE 

WRITE(6»20 3) IASK,IASK»MNAME(JtI > »MNAME(2» I) » IDSH 
203 FORMAT(//t' *, A4, • ERROR A4, • MJOT IS FULL. »,A4,‘ LIS 
CTEO AS PREDECESSOR TO «tA4t' CANNOT BE ENT 6RE0 • « A4 » ' SI 
CHULATIQN TERMINATED') 

SET=A 

RETURN 

8 DO 9 M=l»8 

9 MNAM£(M,L)=NAME(Kf M) 

N=N+l 

LI ST(N)=MNAME(J,I ) 

GO TO 13 

1.; CO 11 M=lt32 

IF( (MNAMEI 2t I ) . EO. IDPL (M, 1 1 ) . AND. t MNAME ( 2 1 K ) . EO. I DPL (M 
C,2 ) ) ) GO TO 13 
C 

IF { I MNAME ( 2, I ) . 6Q . I OPL ( M, 2 ) ) . AND. ( MNAME { 2, K ) . EO. I DPL ( H 
C, 1 m GO TO 13 
C 

11 continue 

DC 12 M=4,8 

IF{MNAME(M,K).NE.MNAME(2«n ) GO TO 12 
NCPL=N0PL+1 

ICPL(NDPL» 1)=MNAME(2,K) 
lCPUNDPL»2)=MNAMtI2i I > 

12 CONTINUE 

13 . CONTINUE 

IF(N.EO.NT) GO TO 14 

NT=N 

GC TO 2 

14 IF(N.EO.C) GO TC 17 
WRITE(6,204) lASKtIASK 

2v4 FCRMATI//,' ',A4,' NON-PRESENT JOBS REFERRENCED • , A4 ) 
DC 15 1=1, N 

15 rtRITE(6,205) I DSH, L I ST.II ) , IDSH 

2:5 FORMAT! //,' ',3A4> 

^«RITE(6,206) lASKflASK 

206 FORMAT! //♦' ',A4,* ALL NON-PRESENT REFERRENCED JOBS EN 

CTEREO *,A4) 

If INOPL.EO.C) GO TO 17 
. VgRlTE!6,207) I ASK , I ASK, I DSH 

2-'? format^//,, • ,A4, 'WARNING' ,A4, • THE FOLLOWING PAIRS OF 
C JOBS FORM DIRECT PREDECESSOR LOOP S ' , A4, ' POSS I BL E FREE 
LLv CONDITION MAY EXIST') 

Cr 16 I=1,NDPL 
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16 WRITei6,208) I0SH,IDPL<I,l)tIDPUIf2>tI0SH 

2:8 F0RMAT(//f* »,2A4,2X,2A4) 

17 OG 29 1=1,64 

IF(<KNAM6(2,n .EO.O).OR.(FLAGUI.EO.IM GO TO 29 
FLAG( I)=l 
DO 18 J=1,NJ0B 

1F<NAME( J,2) .EO.MNAMECZfl) ) GO TO 19 

18 CGNTINUE 

19 IF(MNAME( l,n .EQ. ISTR) JM2 ( 27 , I) =JM2 ( 27 ♦ 1) ^256 

IFlDATArj, 2) .GT.O) JM2(27,I >=JM2<27,I >+1024 
JM2< i,n = i 

1F(MNAME(3,I)»EQ.IN0NE) 60 TO 21 
DC 20 IDX=1,NDIST 

lF(lDIST(I0X).EQ.MNAM£(3,in GO TO 36 
2C CCi'JTiNUS 

21 WRITE(6,209) I ASK, I ASK,MNAME ( 3 , 1 ) , MNAME ( 2 , 1 ) , lOSH 

209 FCRMAT(//,* ♦, A4, • ERROR » ,A4, • DISTRIBUTION NAMED *,A4, 
C* LISTED FOR JOB SA4,* CANNOT BE LOCATED ON DIST. TAB 
CLE* ,A4, • SIMULATION TERMINATED*) 

C 

SET=4 

RETURN 

36 JM2( lit n = I0X«'lC24 

30 K=I 

DC 24 L=4,8 

IF(MNAMEIL,I >.E0.0) GO TO 24 
CO 23 M=l,64 

IF(MNAME(L,I).NE.MNAME(2,M») GO TO 23 
K=K + l 

IF(K.GT.5) GO TO 22 

JM2(K,n=M 

OG TO 23 

22 CALL DVFLMGI2, I,1,M,1) 

23 CONTINUE 

24 CONTINUE 
JM2(8,n=TIME 

JM2(9,l )=HFIX(DATA(J,5I ) 

JM2(IC,I )=HFIX( lJj.O*DATA( J,6)+0.1 ) 

JM21 12, I )=JM2( 12,1 )+(HFIX(OATA( J,1 > ) )#ICZ4 
JM2( 17,1 )=HFIX( IDATAIJ, 3)/ 1000. 0+0.999) 

IF (MNAME (1,1 ).EQ. ISTR ) JM2( 14, I ) =HF I X ( DATA ( J , 7 ) ) 
IF(MNAME( l,I ).NE.ISTR) JM2 ( 14 , I ) =HF IX ( DATA U , 8 ) ) 
IFIFUDXtD.GE.l.) GO TO 25 

IF(D4TA{J,4).LB.F( IDX,l)*DATA(J,5) ) GO TO 25 
JM2{15,I )=HFIX(F( I0X,1)«DATA( J,5) ) 

GC TO 29 



310 


25 l 5 ,n=HFrX(DATA( J»^)» 

29 CONTINUE 

Q = R ^ 

DO 32 I=lt64 

IF(MNAME(2»I>.EQ,0) GG to 32 
CQ 27 L=l,64 

1F(MNAME(2»L».£Q.0) GO TO 27 
DO 26 M=4,8 

lFIMNAKE(K,L),NE.MNAHE(2»m GO TO 26 

CC 31 J=6,7 

Kl=JM2( Jtl )/l28 

IF(Kl.EO.L) GO TO 27 

Kl=JM2C Jf I )-{Kl*l28) 

IF(Kl.EO.L) GO TO 27 

31 CC’NTINUE 
J = 6 

33 Kl=JM2(Jf 11/128 
IF(Kl.NE.C) GO TO 34 
JM2< J»n=JM2( J, n + (L*l28) 

GG TO 27 

34 K1 = JM2( J, n-(Kl#l28) 

IFIKI.NE.O) GO TO 35 
JW2( JtU=JM2( J. n + L 
GO TO 27 

35 J=J+1 
IF(J.LE.7) GO TO 33 
CALL OVFLMG(2,I,2,L,l) 

GO TO 27 

26 CCNTINUE 

27 CC.NTINUE 

32 CONTINUE 

TURN 

cN'O 
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l 


I 


BITWKT 


LliA[.> 

CO 


start C 8ITWRT(KWORDtLPNGTHt.’'iBITS> 

GQU iO KWORD CONTAINS INFO. TO 8E WRITT 

HC 15tl2(l5» HN. LENGTH IS NO. OF 

OC X»7« CHARACTERS TO BE WRITTEN 

nC CLT'BITWRT ' DIVIDED BY 4(4 CHARACTE 

STM 2,lOt28(13) RS PER HALF-WORD, 0 CHAR 

OALR 6,:v ACTERS FOR FULL WORD! 


USING 

<',B MBITS 

IS AN ARRAY THAT HOLDS 

L 

the 

OUTPU W0RD(4 FULL WORDS 

L 

2,J(.*,9) ARE 

RECUIREO IF KWORD 

L 

4»=x»f^f:. fof*: • 


IS A HALF-WORD, 

L 

9,410,1) 

8 

FULL WORDS IF KWORD 

L 

i>,C( ,9) 

IS A FULL-WORD 

LR 

7,5 



SLL 

7,2 



L 

9,8|v ,1 ) 



LA 

0,4 



LA 

6,4 



SRDL 

Z, 1 



SRL 

3,7 



BCT 

6, CO 



oc 

3,4 



SK 

7,8 



ST 

3, 0(7,9) 



RCT 

5,LOAO 



L‘- 

2,1 ,28(13) 



i^VI 

12(13),X*FF* 



CCR 

15,14 



'"NC 
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UNMIX START 0 UNM 1 X ( INDXU t I NOXL t I N, I OUT > 


?ou 

8 

INDXU IS UPPER BIT POSITION OF 

\sc 

15,10(15) 

STRING TO BE RECOVERED FROM 

DC 

X'5* 

INPUT WORD IN 

DC 

CLS'UNMIX* 

INOXL IS LOWER BIT POSITICN 

STM 

2,8,28(13) 

MINUS 1 OF STRING TO BE 

balr 

6,0 

RECOVERED FROM INPUT WORD IN. 

USING 


IN IS THE INPUT WORD FROM WHICH 

LM 

2 , 5 , 0 ( 1 ) 

INFORMATION IS TO BE OBTAINED 

L 

6,i.(0,A) 

lOUT WILL contain THE 

L 

^ ii) i 'j * 2) 

RECOVERED STRING IN POSITIONS 

SRDL 

6 , :> ( 4 ) 

ONE THRU INDXU-INDXL 

S 

4,C(C',3) 

ALL PARAMETERS ARE FULL WORD 

LA 

2,32 


SR 

2,4 


SRL 

7,4(2) 


ST 

7 ,0(0,5) 


LM 

2,8,28(13) 


?WI 

12( 13) ,X*FF' 

BCR 

15,14 


f Nr. 
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STAKT 

ECU 

t>C. 

■» f- 

i.'U 

iiC 

b ALt 
US ifjn 
L 
I. 

L 

L 

L 

L 


I 

’ f’ACK’ 
<tZB( i 


( , i ) 
( •,/) 
?A tl 

( ,?) 

. ( , n 
(.,?.) 
= F* 214 


PftCK(NSHIFT, TWRai 5WR0,MASK) 

4SHIFT INCICATFS NO. OF BIT 
) POSITIONS TO RIGHT THAT TURU 

IS TO as SHIFTED PEFORt UFW 

« information is pntekeu from 

i^. ) SWRl). 

TWRH IS THE target WORD TiTO 
WHICH THE TNFriRf^'ATinN FRON 
SWRP IS TO BE PACKED. 

so^i' IS The source word 

FCCf-' WHICH INFORMATION IS 

uiTAi \=n. 

I mask is a mask l.'URG. Tf.c 

BIT POSIT ICNS OF SWRD 
CTPRirSPC^'DING TO HITS OF MASK 
Th'aT IRE 1 WILL PE TRNSFFREO 
I NTO COER'' SPONDF- G SHIFTED 
7 NBTcA 7 * POSITIONS OF TWRD. 


NR 

L,7 

PIT POST I IONS OF THE SHIFTED TWKt 

•;.‘^I.L 

{• » . I i) 

CNR.nESPC' DI NO TO POSIT If NS 1'4 WHICH 

1 > 

» b 

HASP- HAS *S WILL BE UiNCHANOLD 


B » 

ALL PAkAMpteRS ARE FULL WORO. 

oLL L 

; * . ( E ) 


!^T 

' f ( f ? ) 


(. V 

c ,1 -fRei 

: ’ ) 

• VI • 

l 2 ( 1 * ) , X 

•FF ' 

- r, 

1 s , 1 4 
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SUt(«QUTINE RANCU( IX, IY,YFU 

IY=IX#65539 

IF(IY) 5,6,6 

5 IY=IY+2147483647+1 

6 YFL=IY 
YFL=YFL*.46566l3e-9 
RETURN 

ENT 
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SUBROUTINE RANDNCI Xi $ , AM, V J 
A»0*0 

DC 50 1=1,12 

CALL RAN0U(IX,IY,YI 

IX=IY 

A=A+Y 

V=(A-6.0)*S+AM 

RETURN 

END 
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SUBROUTINE SHAPSC JO8rM0UE,NHATNI ) 

CCKMON/8LK3/ I D I ST ( 25 > ,E ( 25 , 4U , NO I ST 
CONMON/6LK7/ J(27f6A) 

INTEGER#2 J 

C SHAPE FINDS NEXT I/O INTERRUPT POINT EITHER AT I/O 
C INITIATION OR AT I/O COMPLETION 
Jll=J{lltJOBl 

CALL UNMIX{l5tlvtJU*ISHPNO) 

1=2 

IF(J(l8,JOOn A, 5, 15 
A J(ifi,JOB)=? 

GC TO 10 

3 IFI'-QDE) 12,10tl2 

1 , J( 26 , JOB » = IFIX( F( ISHPNO,! I^JI^itJOBI > 

NMArNI=J( 26, JOB ) 

GC TO 55 

12 JI26, JOB)=IFIX(F( I SHPNC , I +2 3 ) ♦ J ( I 5 , JOB ) ) 

NMVTNI = J{ 26, JOB ) 

GC TO 55 

15 IF (MODE) 2?, AC ,20 

2: IT';MP = 1FIXIF( ISHPNO, H-1)»J (9, JOB) > 

L +IFIX(F( ISHPNO,I + 2 3H'JU5,J08) » 

C 

IF( J(26,JOB)-ITEMP) 25,30,30 
25 NMATNI=ITEMP-J(26,J0B) 

J( 26, JOB)=IT£MP 
GC TO 55 
V 1=1+1 

IF(I-2d) 23,20,35 

35 J( 26, JOB) =J( 9, JOB)+J ( 15, JOB) 

GC TO 55 

A, 1T-mP=1FIX(FI ISHPNO,! )*J19,J0D) ) 

c +IFIX(F( ISHPNO,I+20)*J(15,JOB) ) 

C 

IFU(26,J03)-ITFMP) 53,A5,A5 
A 5 I = I + i 

lF(l-20) A3, AO, 35 
5: NMATNI=ITEMP“J(26, JOB) 

J( 26, JOR)=ITEMP 
55 RETURN 

ENl. 
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SUBROUTINE CKCPU( JOBO » JCBN » 

COPMGN/BLKl2/IC£CSZt ICCNtINl,IF£CSZ»IPCT,IPl, IP2fIQlf I 
C02tIQ3t lR*ISf lTA»MINBLK,MPCT,HMST,MTOTALtNIfNIOSt 

CNMOOStNPCL,NPCS« NCPUS ♦ IFEDBK, I RNl , IRN2 , I RN3, IR 

CN4,IRN5tIRN6.IRN7,IRN8,IRN9, HMAPF,M«$PF 

C 

C0MM0N/BLK16/IBWCTR(24) « ICEC(5»40) » ICECSt I CPU ( 10 ) t IP4S 
CS(20»» IFECS»IFeC(40t4l»IPR0S(16),ISAVE(3t3)tlVAL 

COV{ lO),MALC(256t5) t MALCS t MAS ( 24 ) t MAVL ( 128 t 5 » , MAVL 

. CS«MODNM{ 24) ♦MTPK24) f NAI24) , NAA< 24 ) t NAD,NAG»NA 

CMU40),NBLK( 128 ) ,NFB I 3 ) tNJWM,NSCHBD» NREQ(4 

CC,24),NTP(24) ,NTR(24),NUCA(24) 

C 

iNTEGER*2 IBWCTR, ICEC* ICECS, ICPU, I PASSt I FECS« I FECt IPRO 
CS. ISAVE* IVALOV,MALC»MALCS,MASfMAVL»MAVL$.MOD 

. CNM,MTPl,NA,NAArNAB, NAG t N AMt t NBLK » NFB t ^JWM, NSCHEC i 

c;'IREQtNTP,NTR,NUCA 
INTEG6R«2 J.JOVFL 
UO i: I=l,NCPUS 

IF( ICPU<n-JOBO)lOt20,lO 
U CONTINUE 

WHIT£(6f 12)J0B0f J08N 

12 FORMAT!* CKCPU CAN NOT FIND JOBO= • , 1 4 , * TO REPLACE BY 
CJCBN=*#I4) 

RETURN 

2C ICPU(I)=JOBN 

IPASS(7)=0 
DO 50 I=lrNCPUS 
IFUCPUd)) 50,35,50 
35 IPASS(7)=IPASS(7)+l 
50 CONTINUE 

RETURN 

END 
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SUBROUTINE CKI0S(J080,JCBN> 

C0f^MUN/8LK12/ICECSZ»ICCN,INl,IFeCSZ,IPCT, IPl, IP2, IQUI 
CQ2, 103, IR, IS,ITA,MINBLK,MMCT,MMST,MT0TAL,NI ,NI0S, 

CNPOOStNPCL ,NPCS, NCPUS , I F ED&K , I RNl , I RN2 , IRN3, IR 

UNA, IRN5, IRN6, IRN7t IRN8, IRN9, MMAPF,WMSPF 

U 

CfJ^MON/l3LKl6/IBWCTRI2A>,ICECI5,AO) ,ICECS, ICPU(IO), IPAS 
CS( 2J) , IF6CS,IFEC(A0,A), IPR05U6), ISAVEl 3,3) , IVAL 

COV( ,MALC( 256,5 ) , MALCS,MAS( 2A) ,MAVL( 128, 5 ) ,»<AVL 

US,M0DNM{2A),WTP1(2A),NA(2A), NA A ( 2A ) , N AB , NAG , NA 

CMti.4J>,N0LK(l28),NFBt3),NJWM,NSCHED, NREQ(A 

CC,2A),NTP(2A) , N TR ( 24 ) , NUCA I 2 A ) 

C 

INTEGER«2 I8WCTR,ICEC,ICECS,ICPU, IPASS, IFtCS, IFEC, IPRO 
rs, ISAVE, ivalcv,malc,malcs,mas,mavl,mavls,mod 

, U^^',MTP1,NA,NAA,NAB, NAG , NAML , N6LK , NFB , N JWM , NSCHEC , 

CN«lO,NTP,NTR,NUCA 
INTEGER*2 J,JOVFL 

C TO FINi A JOB IN IPROS, REPLACE IT WITH NEW JOB(JOBN) 

0(J i; i = l,NIOS 
IF ( I PROS I I )-JOBO)10,20,10 
K: CONTINUE 

RETURN 

2-; IPRUSm=JOBN 

Ii’ASS(9)=C 
Of; 50 1=1, MGS 
IF( IPROSn )>50,35, 59 
35 IPASS(9)=IPASS(9)+l 

SO CONTINUE 

RETURN 

® poos'" 
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SUBROUTINE LAST3UOB , KEVTMR t NO I ,N02 ,N03 , JOBPT , JXCLD ) 
C0MM0N/BLK7/J(27,64) 

COMMON/BtK16/ieWGTR( 24) , ICECI5*40) t ICECSt ICPU( 10 ) » I PAS 
CS(20), IF6CS,IFEC(40»4),IPR0SU6),ISAVe(3,3),lVAL 

CQVU0).MALC(256,5), MALCS #MAS ( 24 ) ,MAVL ( 128, 5 ) , MAVL 

CS,M00NM(24) ,MTP1I24) ,NA(24) , NAA( 24) ,NAB,NAG,NA 

CPH40),NBLK( 128),NFB(3),N0WM,NSCHE0, NR£Q(4 

CC,24) ,NTP(24) ,NTR(24) ,NUCA(24) 

C 

INTEGER*2 IBWCTR, ICEC, ICECS, ICPU, I PASS, I F6CS, IFEC, I PRO 
tS, ISAVE, I VALOV,MALC,HALCS,HAS,f<AVL,VAVLS,MOD 

CNP,MTPl,NA,NAA,NAB, NAG,NAPt ,NBLK,NFB, NJWM,NSCHEO, 

CNREQ,NTP,NTR,NUCA 
INTEGER42 J,JOVFL 

C NOl ,NC2,N03=LAST 3 IN CHAIN-NOl IS ON BOTTOM 0 RETURNED IF 
C NONE FOUND 

C J06PT=IN0EX OF JOB (PASSED BACK) 

C KEYTMR^TMR OR SIMPLEX 
C JOB IS THE JOB WE ARE CHECKING BELOW 

C LOOK IN ICEC, FIND LAST 3 TO BOUNCE IN CPUS OR LAST IF TMR 
N0l = 0 
NG2 = 0 
N03=: 

1PNT=ICECS 

1 NEXT=ICEC{2, IPNT) 

IF(NEXT-JOa) 2,5,2 

2 IPiVT=ICEC( 5,IPNT) 

IF(IPNT+1) 1,3,1 

3 WRITE(6,4) JOB 

4 FCRMAT(37H ERROR-DIO NOT FIND JOB ♦♦♦♦♦♦♦♦♦♦NO. , 18 ) 

RETURN 

5 J0BPT=IPNT 
IF(KEYTMR) 7,7, 1>1 

C HERE FOR SIMPLEX CPU 

7 IPNT=ICEC( 5, IPNT) 

IF(IPNT+1) 8,99,8 

8 JNAM=ICEC( 2, IPNT) 

1F( JNAM.EQ*JXCLD) GO TO 7 
J27=J(27,JNAM) 

CALL UNMIX(3,2, J27 , IN03) 

IF( INC3)7,9,7 

9 CALL UNMIX(8,7, J27,INDB) 

IF( IND8)7, 10,7 

1- CALL UNMIX(ll,10,J27,INDll) 

IF(IN01l)ll,ll,7 
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11 CALL UNMIX(2tl#J27,IND2) 

IF( IND2)7,7, 12 

C CHtCK FOR HOLD 

12 CALL UNKIX(6,5f J27, INC6) 
IF(lND6)13tl3f7 

13 Nn3=N02 
NC2=N01 
NOi=IPNT 
GC TO 7 

99 KJTURN 

C JGt) IS TMR 

i:i IP :.T=ICEC( 5, IPHT) 

IP(IPNT+1) 102,99,102 
1:2 JU.\«=ICEC( 2, IPNT) 

IF I JNAM.EO.JXCLD) GO TC 101 
J27=J(27, JNAMI 
C CHFCK FOR TMR 

CALL UNMIX(ll,l,.,J27,INDll) 
IFnNDiniJl,lCl,103 
1,3 call «JNMIX(3, I, J27, IN032) 

IF (IND32-1 )101, 104,131 
C JNAW IS INITIATED, IS NOT WAITING CPU 
x-4 CALL UNMIXI 8,7, J27, 1ND8) 

IK ING8J1:> 1,1 35,131 
1.5 CALL UNMIX(6,5, J27, IND6) 

IF( IND6 ) 106, 1C6,1j 1 
l,fc N01=1PNT 

GD TO 1^1 
E\D 


0 ^, 
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SUBROUTINE F6C ( KEY , I TI KE, I OPRN , I OPND ) 

C IF I0PRN*0 THEN OPND IS TG BE MERGED INTO ICEC 
C AFTER ICLK IS GREATER THAN OR EQUAL TO ITIME 
C IF IOPRN=l THEN A NEW SCHEDULE IS TO BE INITIATED 
COMMON/BLK7/J(27#64) 

C0MH0N/BLK8/ ICLK 

COMMON/BLKi2/ICECSZ.ICCN,INl,IFECSZ,IPCT.IPl,IP2rlQl,I 
C02.I03, IR» IS,ITA,MIN6LK,PPCT*MMST,MTOTAL»NI»NIOSt 

CNMOOS»NPCL,NPCS, NCPUS, IFEO0K, IRNl, IRN2tIRN3t IR 

CNA» IRN5, IRN6, IRN7» IRN8, lRN9t MMAPF,MMSPF 

C 

COPMON/0LK13/ RANAI 
CCMM0N/8LK9/ JOVFLUC2A) 

COMMON/BLK16/IBWCTR<24»,ICEC(5,AO) , ICECS , I CPU ( 10 ) , IP AS 
CS<2:‘), IFECS,IFEC(40,4) ,IPRaS(l6) , ISAVE(3,3), IVAL 

covnoif MALC(256,5) ♦ MALCS ,M AS< 24) , HAVL ( 128* 5 > « MAVL 
CS,M0DNM(24) ,MTPU24) ,NA(24) , NAA 1 24 ) ,NAB, NAG, NA 

CML 140) ,N0LKI 128 ) ,NFO I 3 ) ,NJWM,NSCHED, NRE0(4 

C0,24) ,NTP(24) ,NTR(24) ,NUCA(24) 

C 

INTEGER *2 IBWCTR, ICEC, ICECS, ICPU, IPASS, IFECS, IFEC, IPRO 
CS, ISAVE, 1 VALOV,MALC,MALCS,MAS,MAVL,MAVLS,MOD 

CNM,MTP1,NA,NAA,NAB, NAG , NAML , NBLK , NFB ♦ N JWM, NSCHEC, 

CNREO,NTP,NTR,NUCA 
INTEGER*2 J,JOVFL,ICLK 
GC TO ( 10,200,400) , KEY 
C TO HERE FOR INSERTION OF A NEW ENTRY 

i: ITr.MP=-l 

I=IFECS 

IF(IFECS) 13,13,15 
13 K=1 

GC TO 50 

15 IFdTlME^IFECI I ,1) ) 25,20,20 

20 IT£MP=I 

I^IFFCI I ,4) 

IF(I ) 25,25,15 
25 K=0 

K=K+1 

IF(K-IFECSZ) 45,45,35 
35 WRITF(6,40) lOPRN , I OPND , I T I ME 

40 FCR.MATf20H NO ROOM IN IFEC FOR , I 8 , 2H0N, 1 8 , 2HA T , 1 12 ) 

GC TO 70 

45 IF(IFtC(K,4) ) 30,50, 3C 

5: IFtC(K,l)=ITIME 

IFEC(K,2)=IQPRN 
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IFEC(K,3)=I0PN0 
IFEC(K,^)-I 
IFIIOPND) 54,54,52 
52 J27*J<27, ICPNDI 

CALL PACK(12,J27,Ul) 

J( 27, IOPNO)=J27 

54 IFdTEMP) 55,55,6C 

55 IFECS=K 
GO TO 73 

6^ IFECI ITEMP,4)=K 

Ij RETURN 

C TO HERF FOR REMOVAL OF LEADING ENTRY OR ENTRIES 
200 I=TFECS 

IF< I ) 210,210,205 

205 lF(IFECn,l)-ICLK) 215,215,210 

2 1C RETURN 

215 IFFCS=IFEC(I ,41 

IF(IFFC(I,2)-U 225,220,225 
22- WRITE (6, 300 I ICLK 

3.jl FORMAT! • FEC-TIME =»,I5,» SETS NSCHEO* ) 
NSCHEn=l 
GO TO 285 

225 IF(IFBC(I,2)) 285,230,285 
23 ) JQBP = IFECn ,3) 

J27=J(27, J08P) 

CALL UNMlX(l,t, J27,IN0I 
IF(INO) 235,235,280 
235 IF(J(2,J0BPn 24j,27C,240 
24‘- DO 245 KX = 2,5 

1F(J(KX,JOBP).EO.O) GO TO 270 
I PREC = J (KX , JQBP ) 

IF( ICLK-J(8,IPRFD)-2*J(14, IPRED) ) 245,245,280 
245 continue 

J22-JI22,J0BP) 

CALL UNMlXd ,C, J22, INO) 

IF(IND) 270,270,250 
25^ DO 255 KX = 1,U 

255 IVAL0V(KX)=0 

CALL 0VFLMG(0,J0BP, 1,1 VALOV, 10) 

DC 26C KX=1 , 10 

IF( IVALOV(KX).EO.C) GO TO 270 
IPRFD=I VALOV(KX) 

IF{ ICLK-J( B, IPRE0)-24J( 14, IPREO) ) 260,250,280 
2 6.' CCNTINUE 

27 wRITE(6,275) ICLK,JOBP 

275 FC'^MAT!' FEC TO CEC-TIME =’,I5,* JD8 = »,I5) 
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CALL CeC(l»JOBPI 
28C J27*JI27,JOBP) 

CALL PACKlOf J27*0*'^096) 

J(27,JOBP»=J27 
285 IFtCM»l)=0 
IFEC(If2»*0 
IFECI It3)=0 
IFtCU,A)=0 
GO TO 200 

C TO HERE FOR FINDING EXIT TIME OF LEADING ENTRY 
AJC l=IFECS 

IF(I) 405*405,^10 
4C5 IPASS(8)=^l 
RETURN 

4K IPASS(81 = IFEC( I ,l» 

RETURN 

END 
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SUBROUTINt CEC(KNOWtK) 

CnyMON/btK7/J( 27,64 » 

CO^'M0^J/BLK8/ ICLK 

CCf^woN/BLKl2/ICECSZ, ICCN, I Nl ♦ I FEC SZ , I PC T, t P 1 , I P2 , 1 Ql , I 
103, IR, IS,ITA,MINBLK,MMCT,MMST,MTOTAL»Ni,NIOS, 

CNKCDS,NPCL ,NPCS» NCPUS , I FEDBK , I RNl , IRN2, IRN3, IR 

CN4, IRN5, IRN6» 1RN7, IRN6, IRN9, MMAPF , KMSPF 

L 

CGyMON/eLK13/RP:i,RP02,-«Pj3,RP04,RP05,RP06,RP27,RPC8,R 

CPC9, RPi:,RPU 

/* 

CCi‘ MCf4/BLKl6/IBWCTR( 24) , I C EC 1 5 ,40 ) , I CcCS , I CPU (1 0 ) , I P AS 
CS(2CI , IF£CS,IFEC(40,4) , IPR0S(16) , rSAVE(3,3), IVAL 

COV> 1 0 ) ,MALC( 256,5) , MALCS , MAS 1 24 ) ,MAVL( 128, 5) ,MAVL 

CS,.^nUNM(24) ,MTP1(24) ,NA(24) , NAA ( 24 ) ,NA6, NAG,NA 

tf'UAO) ,NBLK( 128) ,NFB( 3) ,NJWM,NSCHED, NREQ(4 

C%^4),NTP(24),NTR(24) ,NUCA(24) 

C 

INITEG£R^2 I BWCTR , I CEC , I CEC5 , I CPU, 1 PASS , I FEC S , I FEC, I PRO 
CS, ISAVE, IV ALCV,I^ALC, MALCS, MAS, MAVL,MA\/LS ,M00 

CA‘M,MTP1 ,NA,NAA,NA8, NAG ,N AML , NBLK , NFB , N J WM , NSC HEC , 

CNRLQ,KTP,NTR,NUCA 
INTcGER*2 J,JOVFL,ICLK 
GC TO ( 10, no, l.:OO,5 0--.C ) ,KNOW 
C TO riERi: FOR PLACING A NEW ENTRY INTO I CSC ARRAY 
1 , 1 = 1 

12 1F( ICFC(2, I ) ) 15,30,15 

15 1=1+1 

IF(I-ICECSZ) 12,12,20 
2v VmRITH6,22) 

22 F(JRMAT(17H SUB CEC ALL FULL) 

RFTURN 

3- IC^C(2,n=K 

IClC( 3,1 )=ICLK 

iC:C( 1, n = : 
icc{4,n='. 
ic-c(5,i )=: 

J27=J(27,K) 

CALL UNMIX I 10, 9, J27, IND) 

IF( IND.EQ. •: ) GO TO 32 
1F( Jt8,K) )32,32,33 
32 J17=J(17,K) 

CALL UNMlXtll, J17,MMS) 

J (26,K) = IF I X(MMS*MINBLK*RP')8) 

4tW=834 5 




325 


NJWM=NJWM-fl 
GO TO 34 

3Cv.) FORMATC CEC HAS PLACED INTO ICEC POSITICNS 

cu» ■ ■ 

3:G5 FOftMATi* CEC NOW CALLS SHAPE FOR J0BSI4) 

33 CALL SHAPE(K»C,NMATNn 
NEW=5 

34 . NS£T=NEW 

CALL PACK( 3, J27tNEW,NSET) 

J(27,K)=J27 
iPAssm = iPASsm + i 
KK = IPASSm-IPASS{2) 

35 1F(1PASSI2>-IQ1) 40,40,50 

40 IF( 1PASS(2).GF.10) GO TO 42 

IF( 1PASS(2J.G6.5I GO TO 44 
IF(IPASS(2).GE.3) GO TO 46 
IFIKKJ 50,50,70 
42 tFlKK-5) 50,70,70 

44 lMKK-3) 50,70,70 

46 IF(KK-2) 5J,7C,70 

53 J12=J(12,K) 

CALL UNMIX(14,IC,J12,INDU 
IF( INOl-IPl) 55,70,70 
55 INU=J(25,K)-ICLK 

KTEMP1=J( 9,K) 

KTE^1P2=IC0N/MMCT 

D = 4.G<‘FL0AT{KTEMP1 )/FLCAT(KTEMP2 I 
IF( lND-IFIX{On 70,70,75 
1C NSCHED=1 

75 RETURN 

C TO HERE FOR A NEW SCHEDULE 

1 Js'. nset=d 

1 = 1 

IClCS=-1 
IPASS(2»=0 
iPASsan= ; 

NCNT=0 ' . 

1 ■ i NPI = I f FT ^ 

U5 IF(ICEC(2,I) ) 150, lie, 150 
llL I=I41 

IF(I-ICECSZ) 105,105,120 
120 WRITE(6,125) NCNT 

125 FCRMATI* AT THIS NEW SCHEDULE CALL TO CEC ICEC HAD', 

C 14, IX, 'ENTRIES' ) 

C 


IPASSt 1 >=NCNT 
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135 

I5c 

C — 
16- 


17. 

172 

175 


i7d 
18 . 

162 

165 


19 


1 -:-5 


IPASS(2)=i\CMT 
IFtNCNT.eO.O) GO TO lAO 
CD 135 KKK=1 , ICECSZ 

1F( ICEC(2,KKK) .NP.O) WRITe<6,l30) KKK ♦ ( IC5C ( K Y , K KK ) , KY 
D=l,5) 

F0kr'AT(6(3X, 17) ) 

CCMIMU6 

RETURN 

JNANUICECt 2, I ) 

NCNT=NCNT+ I 

INTERNAL PRIORITY CALCULATION 
J27=J(27» JNAM) 

J12 = JU2i JNAM) 

CALL UNMIX(15,1C,J12»NEXP) 

1NP=IFIX(NEXP«RP53) 

IPRT=J(20» JNAM) 

J?5=J(25,JNAM) 

IF(J25-ICLK) 165,165»I7C 

NLLN-irlXtKPC4=PiftPi^6-IFL0AT( I CLK- J 25 ) / FLOAT I I PRT > ) ) ) 

GC rn 172 

NDLN=IFIX (RP:44IRPC6-(FL0AT{ J25-ICLK)/FLOAT( I PRT ) ) )) 

ifinuln.lt.o) ndln=o 

INP=INP+NDLN 
I T..MP = ICEC(3»I ) 

TE7^P = FLOAT! ICLK-I TEMP ) / ( FLOAT fl PRT M'RP '^6 ) 

IF{RP05.GT. 1. ) GO TO 180 
I WAIT=1 ./ ( RP05*( 1, ♦TEMP) > 

IF(IWAIT) 178tl85tl85 

IWMT=0 

•JC TO 185 

IF(TEMP,GT.U I GO TO 182 
IV»AI r = IFIX(TEMP«RP05) 

GO TO 135 

I^.AIT = IF IX(RP55«(1. + *5«TEMP) ) 

] ND= I (VJP+ 1 wA I T 
IFdFzDOK) 195,195»19j, 

J? i = J(23» JNAM) 

CALL UNMIX{?»C t J23,MPRF ) 

IKi’^lNP + MPRF 
IM l\P.GT.255) INP=255 

J I =J ( 1 JNAM) 

CALL PACK! 7, J1 J,INP»255) 

J ( 1 : , JNAM) =Ji: 

ICEC{ 1, I) = INP 
IF(NSET.EO.l) GO TO 5.3- 
IPaSS(2)=IPASS(2I+1 


Q^AixTy 
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CALL UNMiXtS.A, J27,IN0) 

iFtiNo.Eo.n iPAssai)=iPAssai) + i 
C WOW LIWK INTO CHAIN ACCORDING TO INTERNAL PRIORITY 


20 V 

NTEMP=0 




IF! ICECS) 

210,210 

#220 

2lU 

ICEC5=I 




ICEC(5,II= 

“1 



GO TO 400 



22C 

1F( ICECd, 

I)-ICeC!l,NPL)) 230*230,260 

2 3U 

NTEMP=NPL 




NPL=ICEC(5 

,NPL) 



IF(NPU 24 

0,240,227 

24C 

ICeC(5,NTE 

MP) = I 



icec(5,i )= 

-1 



GO TO 4C0 



260 

IF(NTEMP) 

275,265 

,275 

265 

icecs=i 




ICEC(5,n = 

NPL 



GO TO 400 



275 

ICEC! 5,NTE 

MP) = I 



ICEC!5, I )= 

NPL 



I-l + l 




IFII-ICECSZ) 103, 

i03,l20 

C TO 

HERE FOR JOB COMPLETION 

lUOO 

IF! ICECS) 

990,990 

,1035 

990 

WRITE!6,995) 



995 EO;<MATM • » • *««*ERROR#*** CEC WAS CALLED FOR REMOVAL 0 
CF A JOB FROM ICSC AND ICEC I S EMPTY * ) 

C 

RETURN 

lwJ5 JX=ICECS 

1j 1> IFnCEC(2t JXI-KJ I )2:,2CCO,IOZO 
lOi!C NTEMP=JX 

JX=rCEC( 5, JX) 
iF(jxi 103.:, 1:30,1)10 
13, WRITE(6,IC31) K,K 

IU31 FORMAT! • CEC WAS CALLED FOR COMPLETION D 

OF JOBSIA/ • BUT JOB*,IA,» WAS NOT FOUND IN ICEC CHAI 
ON, CEC WILL •/ • CHECK TO SEE IF THE JOB IS I 

CN ICEC BUT UNCHAINED') 

1 = 1 

ICAl lFnCEC(2,I)-K) 1C60*1C50, 1060 
105^. CO 1055 NR = 1,5 
1. 55 ICtCINR, I ) =0 

IPASSm = IPASS( l)~l 
RETURN 
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U-6. 

1 . 7 : 
z. 1 , 
2-: 2 , 

ZC iJ 
2. A 


£ 5 


i jt , 


i. ( , 
2-71 


2.72 
2 .7^ 
2 ■ IL 
I 

91'5 9 


■> . 1 -■ 


[ = Ul 

IF(I-ICECSZ) 1090,10^0,1070 
R£ TURN 

IM JX-ICECS) 2C20, 2010, 2020 
ICECS=ICEC(5,JX) 

GC TO 2030 

ICEC( 5,MTEMP)=ICEC15, JX) 

LG 2;90 NR -1,5 
ICtC(NR, JX)-0 
J27 = J( 27,K ) 

CALL PACK! J27,C ,1) 

J (2 7,K) =J27 
IPASS( I >=IPASS( l)-l 
IPASS( 2 )=IPASS( ZJ-l 
J11=J{ 11, K) 

CALL UNMIX( 10,..:,J11, INCU 
IF( INUl-IR) 2.5:-',208C,2C8: 

Jc.r = J(27,K ) 

CALL UNN* I X ( iv , 9 , j 27 , I NO i ) 

1F( INDl ) 2'7'>, 2060, 207 ; 

J17 = J ( 17,K > 

CALL UNMIX( 1 1,0, J17, INCl) 

IM INCl-PMST ) 2 )7 W208. ,208) 

KK^IPASS ( 1 >-IPASS( 2 ) 

IF(IPASS(2)-IQ1) 2071,2071,9999 
[F t 1PASS( 2 I ,GE . Iv > GC TO 2072 
1F( IPASSl 2) .G6.5) on TC 2079 
IF( IPASS(2).Gt. 3) GO TC 2076 
rF(KK> 9999,9999,208- 
IF(KK-5) 9999,2080,2080 
IfiXK-B) 9999,2 '.Sr, ,2v8i; 

IF(<K-2) 9999,2-8'',2:8L 
Gi.CH£L:= 1 
RL TURN 

■TO HERE FOR RE C ALC’JLAT I CN OF PRIORITIES 
N S ■ T = I 

IFdCECS.LL.^.PR.ICECS.GT.ICECSZ) GO TO 5090 
KK = 0 
I=ICECS 

IF ( I .LE .0) GO TO 5' 2’ 

!<K=KK + 1 
NA.VUKK 1 = 1 
1 = IGEU 5, I ) 

GC: T O 5vl"' 

LC ,T = KK 
KK = " 
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5130 KK=KK*l 

IF(KK.GT.LCNT) go to 5C50 
I=NAMUKK» 

JNAM=ICEC«2, n 
GO TO 160 

5050 00 5060 I = l,l.CNT 

DO 5360 KK^I ,LCNT 

IF(ICEC( If NAML( 1 1 ) .GE. IC6C( If NAML(KK) M GO TO 5060 
IT6MP=NAMU II 
NAML( I )=NAML(KK J 
NA«L(KK)=IT6MP 
5060 CONTINUE 

1CECS=NAML( n 
i=: 

5070 1 * 1+1 

IF( I.EO.LCNT) GO TO 5080 
ICF.ClSfNAMU I ) )*NAMU I+l) 

GO TO 5070 

5063 ICEC(5fNAMU I ) )=-l 
5C90 NSET=0 
RETURN 



vn ui 
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SUR^CUTINc HLS(KEY,JCB) 

CINENSION ISUCCV(IC) 

IMTtGi'R*2 ISUCCV 

RVI^F/'RVEF ' / , STCV/ * STD V / 

CCN ‘^0N/BLK3/ I D I ST ( 2 5 ) , F { 25 , 41 ) , NDI ST 
CC>^!^aN/BUK7/J( 27,64) 

CC^MGN/BLK8/ ICLK 

CCf/M0N/RLK12/ICtCSZ, ICCN, IMl, IFECSZ, IPCT,IPl,IP2,IGl,I 
C 02 ,103, IR, IS, lTA,MlNBLK,MyCT,PKST,MTOTAL,NI ,NIOS, 

CNN'OJ.)S,NPCL,NPCS, NCPUS , IFEDBK , I RNl , IRN2,IRN3, IR 

CK4,"lR.M5, IRN6, IRN7, I RN8 , IRN9, MMAPF, I^MSPF 

C 

CCN'MON/BLK13/RP:1,RPC2,RP03,RP04,RP05,RP06 ,RPC7, RPCe,R 

cp:9, rpic,kpii 

u 

C(:Pf"'U.M/BLK16/IUwCTR(24) ♦ICEC(5,40> , IC6CS , I CPU (1 0 ) , I PAS 
CSI P .) . I F ECS, I F EC (40, 4) , I PROS 1 16) , I SA VE t 3 , 3 ) , I VAL 

CCV( I'j) ,MALC(256,5) , MALCS , MAS ( 24 ) , MAVL ( 12B,5),MAVL 

C a , ( 24 i , iMTP it ^4 ) , NA ( 24 ) , NAA ( 24 ) , N AB , NAG, NA 

L.ML( 4 ; ) ,NBLK( 123 ) ,NF3( 3 ) ,NJWM ,NSCHEC, NREQ(4 

C.,24) ,NTP(24) ,NTR|24) ,.\UCA(24) 

'^l\Te<;ER»'2 IBWCTR, ICEC, ICECS, ICPU, IPASS, IFECS, IFEC, IPRO 
CS, ISAVE, IV ALCV,MALC, MALCS, MAS, MAVL, MAVIS, MOD 

cNM,MTPI ,NA ,NAA,NAO, NAG , N A ML , NBLK , NF B , N JWM , NSC NEC , 

C.VR-U,KTP,NTR,N(jCA 
IMESER^>2 J,JDVFL,ICLK 
5 NCi'RUN^O 

GC ro ( 10, 500,1 COG), KEY 
C TO HERE FOR INITIAL J-TAHLt' SCAN 

1 - I = 

f'C 2 5C NXX = 1,2 5 

IFnniST(NXX) .ec.RVEF) GO TO 251 
2b- CCMINUE 

231 IC<ERN=NXX 

IC 252 NXX=1,25 

IF(10IST(NXX).EQ.ST0VI GO TO 253 

2 CCMINUt 

3 n. XSTD=NXX 
1 = 1 + 1 

IF (1-64) 2",20,13j 

2. Jl=J(l,I) 

CALL U:-JMIX( 7,6, Jl, IND) 
ir(INC) 30,15,30 
3: jx-jiirsi) 
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CALL UNMlX(7fC»JXf INP) 
f^IX=NPCS*INM+NPCL>M ICO-INM) 

Ff'IX:*FtOAT(MIX)**0l 

KNA«C-rFIX(FLOAmCON)/(CFLOATf ITAI^FLOATtlPCTI^MlXI* 

c.oin 

JX=J(ll,I) 

CALL PACKl 0,JX,MNARCf IC23) 

J(U»l>=JX 

JX=J<12,I) 

lND=IFlX(MNARC*ftP09) 

CALL PACKlOtJX, INO,1023) 

J(l2tn-JX 

JX=J<l3tI) 

KNARI*IC0N/IFIX(FL0AT( I TA+ IRN6»I RN7* IPCT »*.Ol ) 

CALL RANDUURN2« IXXfRAN) 

1RN2=IXX 

MNARl = IFIX{FLOAT(MNARn*< .5+RAN) ) 

CALL PACKOt JX,MNARI,1C23) 

J(l3,ll=JX 

JX^J(2l»n 

IN0=MNARI/3 

CALL PACK(0« JXtIND»1023) 

Ji2l,l)=JX 
Jll = J(ll,n 

CALL UNMIX ( UtlOiJllf ISHPNO) 

KTEMPl=J(9f I ) 

NSHPTS=IF!X1F( ISHPNO,2in 
ISTOC=IFI X (MNARC*RP09) 
lSTOl=MNARI/3 
RM=FL0AT(MNARC» 

STDR=FLOAT( ISTOO 

PMs(FLOAT(KTEMPlM/(FnSHPNOt2l) + l. » 

KTtMP = Jfl5,n 

ST0P = F( IOXSTO,ISHPNO+U*FLOAT(KTEMPl ) 

CALL NORPRBI PM*STOP,RM,STORt lOXERN.PROBC ) 

IPRT=IFIX{ ( PROBC+ (l.-rPRQBC)*I FLOAT n FIX! PM/RH> > + 
CNSHPTS+D) 

HM=FLOAT(MNARn 
STCR = FLOATt ISTOn 
PM= ( FLOAT ( KT 6 MP n /F II SHPNO * 211 
ST 0 P=F( IDXSTD* 1 SHPN 0 + 21 )«FL 0 AT(KTEMP) 
call NORPRBtPMfSTOPf RMtSTOR,IDXERN*PRO 0 n 
IPRT= 1 PRT*-IFIX( IPRO 8 £ + (li-PR 08 n*(FL 0 AT( IFIX(PM/RM) ) + . 
C 6 ) 1 * (NSHPTSn 

C 

J(20,I)=IPRT 
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IF{ J(i 4 , I) .LE. 2 *IPRT) JU 4 , I ) = 2 *IPRT 
J 27 *J( 27 , I ) 

CALL PACK(r., J 27 » 8344 » 8344 ) 

J( 27 .n=J 27 
3 Ll JX = JU 7 ,I) 

CALC UNMIXUltl,JX,MMSJ 

LCnw = lPlX(RPOa*(MINBLK*MMS«MMCTn/ICON 
IM JU 4 ,I )-lFIX(RP 07 )*IL 0 TIM+J( 20 » HU 375 , 375.305 
3 l 5 IMt-'MS-MTnTAL/AC) 307 , 310,310 
2.;7 J 12 = J{ 12 , 1 ) 

CALL UNMlX( 15 ,ir,J 12 ,INC) 

IF(IND- 30 ) 310 , 375,375 
3 K NSUC = 0 
K-X = 5 

315 KX=KX +1 

IF(KX* 7 J 320 , 320,340 
3 ?: JX=J(«X,I) 

CALL UNMIX( 7 ,C. JX.INC) 

IFlINt) 330 , 33'^, 325 
3.15 NSUC = NSUC+I 

^ 3 .: CALL U'MMIX ( 14 , 7 ,JX, IND) 

IFUJD) 315 , 315,335 
3-^5 NSUC = NSUC ^1 
v,C TG 315 
34 , JX=J( 22 ,I) 

CALL UiSlMIX( 2 ,l,JX,lN 0 ) 

If { INCJ 37 -', 370,345 
3 A 5 i:c 34 7 KX= 1 , 1 C 
3^7 IVAL 0 V(KX)=C 

call 0 VFLMG( 1 , 1 , 2 ,IVALGV, 10 ) 

or, 36 : Kx = i,io 

I F ( I VALOV I KX ) ) 355 , 36:*, 355 
n3UC=NSUC + 1 
36 CC’^^^JUL■ 

,rr- ^F(^Jsuc-NIcs-NCPUS) 371 , 372,372 
wi kt;:m'»i=,jsuc 

■’,L TO 3 73 

372. KT^M3l = NlOS + iMCPUS 

37j KT:k'P 2 = J { 14, n 

KT,-MP 3 =MMS 
JX=J ( 27 , 1 ) 

CALL UNMIXlll, 10 ,JX,I\C) 

IFtlSC.CG.l) KTE ’^‘’3 = 3 *KTEMP 3 

in IFLOAK lRN8)/l.')0.)*IFLOAT(KTEMP3)/FLOATtMTOTAL) ) 

C -(FL:)AT(LDTIM)«FLOAT(KTEMP 1 ))/FLOAT(KTL«P 2 

' )) 375 , 38 ' , 3 e;- 
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375 JX=Jl27,n 

call PACK<0,JXf5l2f 512) 

J<27,n=JX 

38C KX=l 

35 MX=MX+l 

IF(MX-5) A0»40.70 
AC IPRFD=J(MX ,I ) 

IF( IPREO) 35,35,45 
45 IF( J(8, IPRED) .EQ.O) GG TO 15 

IFnCLK-J(8,lPRe0)-24J(14,IPRE0M 35,15,15 
7C J22=J<22,n 

CALL UNMIX(1,0#J22,IND) 

IF( IND) 75,100,75 
75 CC 77 MX=l,lO 

77 1VAL0V(MX)=0 

CALL OVFLMG( I, I , 1, IVALCV,10) 

WR1TE(6, 1380)1 

138C FORMAT(* HLS CALLED OVFLMG TO CHECK FOR PREOS OF JOB', 
C[8,»75M 
KX=0 

8C KX = KX«-l 

IF(KX-IO) 85,85,100 
85 IFUVALOVtKX ) I 90,103,90 

9C IPREO=IVALOV(KX) 

IF(J{8,IPREO).EC.O) GG TO 15 
IF(ICLK-J(8,IPR6D)-2<‘J(14,IPRED> ) 80,15,15 
IC, J?7^J(27, n 

CALL UNHIX(9,8, J27, IND) 

IFUND) 105,110,105 
105 NPRn=J( 14, I ) 

CC TQ 115 

110 iSTr=j( 14, n/3 

TEMoi^FLOATI ISTD) 

KTEMP2=J(14,I ) 

TEMP2=FLOAT(KTEMP2 ) 

CALL RAN0N(IRN3, TEMPI, TEMP2, RAN) 

NPRD=IA8S( IFIX(RAN) ) 

IF ( FLOAT ( NPRO) .GT,TEMP2 + 3.*TEMPI ) NPR0=NPRC/2 
115 J< 25, I)=J( 8, I )+NPRD 

IF( ICLK+2«J(20,I ).GT. J(25, I ) ) Jt25, I )= ICLK+2* J < 20 , I ) 
CALL UNMIXI 10,9, J27, IND) 

IF(IND.EQ.T) GO TO 116 
IF(Jie,I ).E0.0) GO TO 116 
LCTIM=G 
GC TO 117 
J17=J(17,I ) 


116 
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CALL LINMIX( ll,Of Jl7tMMS» 

LDTIM=IF I X<RP08«(MINBLK«HMS*MMCTH /ICON 
117 lNU = IFIX(RP06*(J(2Cf I )+LOTlM» » 

IF( J ( 23» n-ICLK-iNO) 120»120»125 
12^ CL'NTINUE 

13CJ FORMAT! ■ HLS WILL NOW CALL C6C FOR INSERTICN OF JOa»»I 
C^/ • INTO ICECf N0WRUNsSI2t* 120M 

C 

CALL CECd.M 
GC TC 128 

125 NTT = J(25,n-IND 

WRlTE(6tl320> I,NOWRUN,NTT 

I32j FOKMAK* HLS WILL NOW CALL FEC FOR INSERTICN OF JOB*, I 
C4/ * INTO IFEC, N0WRUN=»,I2»* NTTs*,I6,* 125* 

C ) 

CALL FECI 1»NTT,0,I) 

12b IFINOWRUN) 15,15,129 
- 129 MOWRUN^O 

CO TO 1160 
■3c RETURN 

C T'.l ^ERE FOR INITIAL ASSIGNMENT OF PROCESSORS AFTER NEW SCH 

CECUL^ 

5*:; I = IClCS 

IFin 520,520,525 
52C write (6, 5231 

•j2? formatc current events chain empty on initial call TO 

C FLS 500 • I 
RETURN 

t^5 \FCPU-0 

CO 53L K=l,NCPUS 

53C IFIICPUIK) ,cQ.O) NFCPU=NFCPU+l 
KF!CP = D 

CC 55C K=1,NI0S 

5';.: 1F( IPROSIK J.EO.O) NFIOP=NFIOP+l 

-ht) JINCX = ICEC(2,I ) 

J27^J(27,JINOX) 

CALL UNMIX ( lA, 13, J27,LCAD) 

IFtLOAD) 575,575,570 
1F( IPASS{51”I02J 575,575,650 
':W5 INC = i 

CALL PACK! 3, IND, J27,IC53) 

IF! I\D.EQ.5) GO TO 64C 
IF(IND.E0.9) GO TO 645 
IF UNO. EO. 1029) GO TG 590 
IF ( INO.EQ. 1033) GO TG 620 
:r TJ 650 
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59C IF(NFCPU-3) 650,595,595 
595 CALL CKCPU{0,JIN0X> 

NFC'PU=NFCPU>1 
CALL CKCPU(0,JINOX) 

NFCPU=NFCPU-1 
6CC CALL CKCPU(0, JINDX) 

NFCPU=NFCPU-1 

CALL PACKCO, J27,2, 13A) 

J{27,JIN0X)*J27 

6C5 IMCC=ICEC(A,n-UCEC(A,n/ 2)*2 

[F( INDC.EQ.O) ICEC(4,n = ICEC(4,I) + l 
IPASS(3)=IPASS(3l+l 
IF(LOAO.EO.O) IPASS(4) = IPASS(4 ) + l 
IF(NFCPU) 650,610,650 
610 IF(NFIOP) 650,655,650 
620 IF(NFI0P-3) 650,625,625 
625 CALL CKIQS<0,JINDX) 

NFI0P=NFI0P-1 

CALL CKI0S(0,JIN0XI 

Nnop*^Frop-i 

IFILOAO.EO.l ) IPASS( 5)=IPASS(5)*2 
63 j CALL CKI0S(0,JINDX) 

NFinP=NFICP-l 
^'ASK = 2186 

IF<L0AD.£0»U MASK=2184 
CALL PACK(0,J27, 2178, MASK) 

J<27, JINOX )*J27 

IF(LOAD.EO.l) IPASS(5>*IPA$S(5)+1 
GC TC 605 

635 IF{I,WD~2) 640,645,640 
64C. IF(NFCPU.GT.C) GO TO 60C 
IF(NFIOP) 655,655,650 
645 IF(NFIOP.GT.O) GO TO 630 
IF(NFCPU) 655,655,650 
65u I=ICeC(5,I) 

IF(I) 655,655,565 

653 FC^MATM HLS HAS ASSIGNED CPU N0.',I3,» TO JOB*, 13) 

.654 FORMAT) • HLS HAS ASSIGNED ICP NO, *,13,* TO JOB*, 13) 

655 DC 670 IX==1,NCPUS 

IF( ICPUnx),N6.C) WRITE(6,653) IX,ICPU(IX) 

67C CONTINUE 

675 CC 68C IX = l,NIOS 

IFUPROSI IX).NE.O) WRITE(6,654) IXtiPROSUX) 

6b: CONTINUE 

RETURN 

C TO HERE FOR JOB COMPLETIGN 



336 


1 •. n CONTINUE 

1^40 FORMAT! ' HLS WILL NOW CALL C£C FOR REMOVAL OF JOB*tIA/ 
C * ICEC FOLLOWING JOB COMPLETION, lOCO 

CM 

call CECn.JOB) 

J27 = J(27,JO[3) 

CALL UNMI X ( 7 ♦ 6, J27, IND ) 

IFUNO.EO.O) IPASS(3)=IPASS(3)-1 
ipaSSI'Vl^IPASSIAI-l 
J(d,JOa»=lCLK 
JU8, JOB)*"' 

J( 26, JOB) ==0 
jr:=jao,jo8) 

CALL PACK! 0,32640) 

J! 1",JOB)=J10 

IF(JI2,J06)) IC19,1CC4,101<? 
l.„4 CALL UNMIX(9,8,J27,IND) 

iF(iNO) ni:,ioc5,ioio 
I' 3 ISXD-J! 14, JO0)/3 
TEVPl=FLOAT( I STD ) 

KT?;MP2 = J( 14, JOB) 

T"»'P2=FLnATI KTSMP2) 

CALL RANON( I RN 3 , TEMP 1 , TEMP? , R AN ) 

NPfUJ = IABS( IFIX(RAN) ) 
r,r TO iJii 

l.,l) NP -ID = J( 14, JOB I 

1*11 IF(J( 8, JOB )-J{25, JOB)) 1012,1013,1013 
1:L2 J(2'),J0B)=J(25,J0BI+NPR0 

GC TO r.'l5 

i:i3 J!25,JOR)=J(B,JCB)+NPRC 

i:i5 If ( ICLK+2'»J(2C, JOB) .GT, J(25, JOB) ) J { 25 » JOB ) = I CLK + 2 * J ( 2 
C.., JOB) 

CALL LNMIXI 1C,9,J27, INC) 

IF ( INO«EQ.;') GO TO 1016 

IF ( j{ e, n .EQ. : ) go to ni6 

LCTIM=0 
r,C TO IC17 
i:i6 J17=J!17, JOB) 

CALL UNMIX! 11,3, J17,MMS) 

LCTIM=IFlX(RP:8<‘tMINBLK«MMS<'MMCT) >/ICON 
1.17 \TTi=J!25,J0B)-IFIX!RP:»6>i‘{J( 20 , JOB ) +LOT I M ) > 

FORMAT!* HLS WILL NOW CALL FEC FOR INSERTION OF JOB', I 
04/ ' INTO IFEC AFTER JOB COMPLETION, NTT=',I6 

C,* DI5M 

CALL FEC! I, NTT, :, JOB) 

IMl J27 = J(?7, JOB) 
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CALL UNMIXl IC»9,J27, INC) 

IF(IND) 1080,1020,1080 
102C J1=J(1,J0B) 

CALL PACK(0,J27,16,16) 

J(27, J08)=J27 

CALL UNMIX ( 15,7, Jl, IND) 

IF( INO) 1025,1030,1025 
1025 CONTINUE 

1}26 FORMAT! • HLS HILL NOW CALL MEMRLS TO RELEASE BLOCK*, 14 
t,/ * FROM JOB*,IA) 

C 

CALL MEMRLS! JOB, INO) 

CALL PACK! 7, Jl, 0,255) 

J(I,J0B)=J1 
i:30 J19=J(19,J0B) 

CALL UNMIX(8,0, J19, INO) 

IF(INO) 1G35,IC40,1035 
1035 CONTINUE 

CALL MEMRLS! JOB, IND) 

CALL PACK(D,J19, 0,255) 

J! 19,J08)==J19 
1040 J17=J!17, JOB) 

CALL UNMIX(15,11,J17,IN0U) 

CALL UNMIX!12,0, J19, INCL) 

IN0 = 0 

CALL PACK!0,IN0,IN0L,15) 

CALL PACKI4, INO, INDU, 15) 

IF(INO) 1045,1050,1045 
1045 CONTINUE 

CALL MEMRLS! JOB, INO) 

CALL PACK! 8, J19, 0,15) 

J( 19, J0B)=J19 

CALL PACK! 11, J17, 0,15) 

J! L7,JOB)=J17 
1050 J22=J!22, JOB) 

CALL UNMIX!8,7,J22,IN0) 

IFIINC) IC55, 1380, 1C55 
1C55 CO 1C57 KX=1,10 
1057 IVALaV!KX)=0 

■ CALL OVFLMG! I, J06,8, I VALOV,IO) 

KX = 0 

1C6j KX=KX+1 

IF!KX-10) 1065,1065,1380 
i:65 IF! IVALOV! KX) ) 1C70 , 1C 8 0 , 1070 
!•: 70 1NC=IVALQVIKX) 

WRITE!6,1026) IND, JOB 
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CALL !^EMRLS( JOB, INO) 
iVALOVt l)=KX-l 

CALL C)VFLMG( 3, J06,8, IVALOV, 1) 

CC TC 1060 
l.&O CONTINUE 

C WILL NOW UPDATE PREDECESSOR FIELDS OF SUCCESSORS OF JOB 
lv90 JJX=5 

, IRc.TRN = T 
IFLAG=l 

ic'i? I flag -“I flag 

IF(IFLAG) IC95, 1105, UC5 
1.95 JJX=JJX+l 

lFUJX-7) 1100,1100,1175 
ii:: JWRC=JUJX, jQ0> 

CALL UNMIX(7,:,JWRD, IDXSUC) 

GC TO 1107 

Ii,5 CALL UNMIXl IA,7,JWR0,ICXSUC» 
lit? IFdCXSUC) 111C,1C93,1110 
11 IJ NJ2?=J{ 27, I0XSUC5 

CALL UNMIX( 13,12, NJ27, IND) 

IFdND.eO.n GO to 116C 
CALL UNWiXf l,0,NJ27,INC) 

IFdNC.SG.l) GO TO 1160 
KX-1 

1113 KX=KX+1 

IF(KX-5) 1115,1115,1130 
1113 IF ( J(KX, lOXSUC) ) 1113,1113,1120 
112;; 1F( JIKX, ICXSUO-JOB) 1125,1113,1125 

1125 IPRtC=J(KX, IDXSUC) 

IF( J(y, IPREO) .EO.)) GC TO 1160 

IF dCLK-J( 5, IPRED)-2*Jd^, IPRED) ) 1113,1160,1160 
Hi. J22 = J(22, IDXSUO 

CALL UNMIXI 1,0,J22, ISPILL) 

IFdSPILL) 1135,1170,1135 
1135 CO 1137 LX = l,n 
1137 IVALOVILXJ =C 

CALL OVFLMGI 1, IDXSUC,l,IVALOV, 10) 

KX=C 

1 U , KX = KX + 1 

IF(KX-U) 1 U5, 1145, 117C 
11^5 IF( iVALOVIKXn 1147,1170,1147 
1147 IFdVALOVIKX)-JCB) 1150,1140,1150 
ll-j IPkEC = I VALOV(KX) 

IF( J(8, IPRFO.EO.O) GO TO 116^ 

IF( 1CLK-J(8, IPRFO)-2*Jd4, IPREO) > 1140,1160,116') 

IUj lFUJX-7) 1093,1:93,1165 
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U65 IF(IReTftN) l205rl205tU90 

1170 1=!0XSUC 
NCWRUN=1 

C WILL NOW BRANCH TO 100 FOR CALCULATION OF TARGET TIME 

C FOR JOB IDXSUC AND INSERTION INTO ICEC OR IFEC 
GC TC 100 

1175 J22=J(22,J08) 

CALL UNMIX(2,l,J22«IRETRN) 

IFdRETRNI 1205,1205,1180 

1180 DC 1181 MX=1,10 

1181 ISUC0V(KX)=0 

1165 CALL 0VFLMG(l,J0e,2, ISUCOV,10) 

MX:*0 

1190 MX=HX+1 

IF(MX-IO) 1195,1195,1205 

1195 IFUSLCOV(MX) ) 1200,1190,1200 

12C0 IDXSUC*ISUCOV(MX) 

OC TC lllO 

12C5 RETURN 
END 
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SUOHOUTINE NORPftb(PM,STDP,ftM,STOR, lDXERN,PftOB) 
COf>'MON/8LK3/ 10 1ST ( 25 ) , F < 25 , »NOI ST 

PPC»=0.O 

IFIPM-3.«fSTDP-RW+3.*ST0R» 5,l5tl2 

5 I F ( PM+3 .*STDP“RH+3.*STCR) 6f6,7C0 

6 PRCa-1.0 
RtrURN 

tj:. I F { RM-a.^STOR-P^) 71 3 ♦ 710 ♦ 720 

?i: I=IFIX( n.*( (RM-3.*STOR-P«)/STnP)-.5) 

GC TO 7 

72. I=[FIX( 10.*( (RM-3.«ST0R-PM)/STDP)+.5) 

7 1 F ( n 8 t 9 , U 

y PPQfl*FnUXERr4,-l ) 

.jC TO 15 

1 PRCa«.5 
GO TO 15 

!•: PRCa=l.-F( lOXERM, n 

GC TO 15 

V? ir(py-3,*STDP-R!^-3.’^STCR) 15tl3fl3 

13 PHOB = ";.0 

Hi TURtNi 

15 ()L = 4y4XURM-3.*STDR,PM-3.»STDP) 

(iU=4yl^a (HM^3,<«STDR» PM+3.*ST0P> 

2 taHM=(BL-RM) /STOR 
BURM={3U-RM) /STDR 
8L^M=(BL-PP) /STOP 
8UPM=(UU-PM) /STOP 
CXP=13.*8LPM 

r,XR = l ..-5BLRM 


ORIGINAL PAGE IS 
OF POOR QUALITY 


IF(STDR-STDP > 23,23f25 

2 3 C^'P=1. 

C ;M = ST0P/5TDR 
[F(GXP) 231,231,232 
lil CXi’ = FLOAT( IF IX( CXP-. 5) > 
■jC TO 3 2 

3 .' OXd = FlOAT( IFIX(0XP + .5) ) 
■JC TO 3 0 
■'5 = 

!;jp=stdr/stop 

IF(DXR) 251,251,252 
?5i I-XR^FLOATIIF 1X10XK-.5 n 
GO TO 3'' 

52: LX REFLOAT! lFIX(CXR+.5) ) 

I VJX-'L=IFI X(DXP) 
1.)LX?U=IFIX(DXP + C;JP) 
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IFUMOXPU.GT.AOJ GO TO 165 
IN0XRL = IF1X(DX(U 
IN0XRU=IFIX(DXR^CNR) 

1FUMOXRU.GT.40) GO TO 165 
IF(STDR-STDP) 35»35t4U 
35 OIFL=A6S(OXR-INOXRU 

UIFU=A6SfOXR+CNR-lNOXRU» 

GC TO 45 

4'J OIFL = ABS(OXP-INOXPU 

OIFU=ABS(OXP+CNP-INOXPU) 

45 IFdNOXPU 55*46,75 

C INOXPL IS 0, INDXPU IS POSITIVE OR 0 

46 IF( INDXPU) 47,47,48 

47 X1=C.C 

IFIDIFU.GE..I) Xl=Xl+DIFU*l.5-FnOXERN,l) ) 

GC TO 50 

4B Xl=.5-F ( IDXERN, INDXPU) 

IFICNP.EO.l. ) GC TO 95 

IFIDIFU.GE. .1) X1 = XH-DIFU<‘(F(I0XERN, INDXPU ) -F ( IDXERN, I 
CNCXPU-*-! ) ) 

5. IF(DIFL-.l) 95,51,51 

51 IF(DXP-INDXPL) 52,52,53 

52 Xl = XH-DlFL*I .5-FU0XERN,l) ) 

GC TO 95 

53 X1 = X1-DIFL*( .5-F( IDXERN,!) ) 

GC TO 95 

55 IF(INDXPU) 60,65,70 

C INDXPL AND INDXPU ARE BOTH NEGATIVE 
6^ X1=F( IOXERN,-INOXPU)-F( IDXERN, -INDXPU 

IFlCNP.eO. I. ) GO TO 95 

IFIDIFU.GE.. 1) X1=X1-0IFU*{F( IOXERN,-INOXPU)“F( IDXERN, 
C-INDXPU + D) 

IFIDIFL.GE.. 1) X1=X1 + 0IFL«'IF( I DXERN,- INDXPL )-F ( I DXERN, 
C-INDXPL+I) ) 

GO TO 95 

C INuXPL IS NEGATIVE, INDXPU IS 0 

65 Xl=.5-F ( IDXERN, -INDXPL ) 

IFICNP.EO.l.) GO TO 95 
IF(OIFU-.l) 69,66,66 

66 IF! UXPfCNP-INOXPU) 67,67,68 

67 Xl = Xl-DIFU*( .5-FUnXERN,l) ) 

GC TO 69 

6F, Xl^XI + OIFlH'I .5-FU0XERN,l) ) 

69 IFIDIFL.GF.. 1) X I = X 1 +0 1 FL* ( F (I DXERN INDXPL ) -F ( I DX ERN , 
C-INDXPL + D) 

GO TO ,95 
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C INCXPL IS NEGATIVE, INDXPU IS POSITIVE 
7i Xl=l.-F( IDXERN,-INOXPL)-F( lOXERNtINOXPU) 

iFtCNP.EO. 1. ) GO TO 95 

IF(OIFL*G6..1> Xls*Xl + OlFL*lF(lDXERN,“INOXPL)*F(IDXERN, 
C-INOXDL + D) 

IFIOIFU.GE.. U XI=XU01FU*(F(IDXERN, IN0XPU)-F (IDXERN,! 
CNnXPU+l ) \ 
bC TO 95 

C DOTH INDXPL AND INDXPU ARE POSITIVE 
75 Xl=F( IDXERN, INDXPL >-F ( I OXERN , I NOXPU I 

IFICNP.EQ. 1. > GO TO 95 

iriDIFL.GE..!) Xl=Xl“DIFL«(F( I DXERN, INDXPL )-F ( I DXERN , I 
CNCXPL + 1 ) ) 

IFIDIFU.GE.. n X1=XUDIFU*(F( I DXERN, INDXPU) -F( IDXERN,! 
CNOXPU+I ) ) 

95 IFUNCXRU 105,96,115 

C INCXPL IS INDXPU IS POSITIVE OR 0 

96 IF(INDXRU) 97,97,93 

97 ’ X2=.5 

IF ( UI FU.GE . . 1 ) X2=X2-(DIFU*( ,5~F( I DXERN, I > > )*.5 

GG TO lT -> 

X2=( . 5+F ( I DXERN, INDXRU) )*.5 
IFICNR.FQ. 1. ) GO TO 145 

IFIOIFU.GE.. I ) X2=X2-(UrFU*(F( I DXERN, INDXRU )-F (I DXERN, 
GINCXRU+l )))«.5 

C 

1 IMOlFL-.l) lA5,i:i,l01 

1 i IF(DXR-INDXRL) 102,132,103 

1 r X2=X2+I DIFL^I .5-Fl IDXERN, U ))♦. 5 

in TO 145 

1 . J X2=X2-(D1FL«( , 5-FIT OXERN,l) ) )*.5 

GC TO 145 

1.-: iFiiNDXRu) n:, 106, 112 

C 1 j-XRL IS NEGATIVE, INDXRU IS 0 
L (. X2 = ( 1.5-F ( IUXERN.-INCXRU )*.5 

IFICNR.EQ. 1. ) GC TO 145 

IFIOIFL.GE..!) X2=X2+(CIFL«{F( I0XERN,-IN0XRU -F ( IDXERN 
■: ,-IN'JXRL+l )))*.5 

i 

IF IDXK+CNR-INDXRU) 1}7, 107,108 
1 . 7 /2^X2+(0IF'J*( .5-F I I DXERN, I ) ) )*.5 

GC TC 145 

I ■ /2 = X2-(L'IFU*( .5-FI I OXb RN , 1 ) ) ) * . 5 

iO TO 145 

C .' ilC INPXR'J ANU INCXRL ARE NEGATIVE 

Us <2 = U-(F( I DXERN,- INDXRU +F( I OX ERN , - INDXRU ) )*.5 



IFtCNR.eO.l.) GO TO 145 

lF(01FL.Ge..U X2*X2+(OIFt*CFnOXERN,-lNDXRU-FnOXeRN 
C,-lNOXRL+l n)4.5 

c 

IF(OIFU.GE,.l) X2=X2*(OIFJ*(FUOXeRN,-INDXRU)-F( IDXERN 
C.-INDXRU+l ) ) >*.5 
C 

GO TO 145 

C INDXRL IS NEGATIVEtlNDXRU IS POSITIVE 
U2 X2=( l.-F( IOXeRN*«INDXRL)-»-F( IDXERN, iNDXRUn *.5 
IF(CNR.e0.l« ) GO TO 145 

IF(OIFL,GE..l) X2=X2+(CIFL4(F(I0XERN,-INDXRU-F( lOXERN 
C.-INDXRL+l m*.5 
C 

IFIDIFU.GE..!) X2*X2-(CIFU«(Ft IOXERN»INDXRU»-F(IOXERN, 
CINDXRU+I ) ) )*,5 

C 

GO TO 145 

C ROTH INUXRL AND INDXRU ARE POSITIVE 
U5 X2=(F(IDXERN, INDXRL) +F(IDXERN, I NOXRUJ )*.5 
IFICNR.EQ. 1. ) GO TO 145 

IF(DIFL.G6..l) X2=X2-<DIFL*(F( lOXERN, IN0XRL)-F(IDXERN, 
CINOXRL+l )))*,5 

C 

IFIOIFU.GE. .1) X2=X2-(DIFU*(F( IDXERN,INDXRU)-F( lOXERNi 
CINDXRU+l )n*,5 

C 

14,5 X = X1«X2 

IF(X.GT..00C0011) PROB=PROB+X 

CXP=DXP+CNP 

OXRsoxR+CNR 

IF(CNR-CNP) 160,150,150 
15,; IF(DXR-*10.*BURM) 30,3C,155 
155 RETURN 

i6J IF(0XP-10.*6UPM) 30,33,165 
165 RETURN 
END 
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SULii^OUTlNE LLS(KEY,JOB) 

CU‘^yON/BLK7/J ( 27,64 ) 

CCf''^''ON/BLKa/ ICLK 

r.iV'MON/BLKlZ/ICECSZ, ICON, I N1 ♦ I FEC SZ , I PC T , I PI , I P2 , I Cl , I 
Cw2, IC3, IR, IStI TA,MINBI.K»H«CT,NMST,MT0TAL,NI ,NI0S» 

C;NiVL'l;S,^iPCL,NPCS, I^CPUSt IF6DBK, IRNl, IRN2, 1 RN3, IR 

I.K4, TRN5, !RN6, IRN7,IRN8,IRN9, MMAPF,MMSPF 

Cr.w'^Di'i/rtLK13/RP01,RP?2,RP:3,RP04,RP05,RP06,RP:7,RPC8,ft 
CP -7, RPi:,RPll 

' CC*'W3'-t/;iLKl6/IBWCTR( 241 ,ICEC(5.40) , ICECS , I CPU (10 ) » IPAS 
L S(2- ) , IFECS, IFEC14 3,4) , IPR0S( 16), ISAVE( 3,3), IVAL 

. lV( r: » ,MALC( 256,5) , MALCS,KAS( 24) ,^»AVL (128,5) ,MAVL 

•„ i,r-*QCNM( 24) ,MTP1(24) ,NA(24) , NAA(24) ,NAS,NAG,NA 

C ;^l (4 .' ) , .M3LK( 128) ,NFB ( 3 ) , N J WV , N SCHE D , NREQ(4 

,^‘,1 ,NTP(24) ,NTR(24),,'\iuCA(24) 


t. 

1 . 




i ’ f t' '.'.R. ^ ^ I ^ W 0 T R 7 ICEC, ICtCS, I CPU , iPASS,IFfcCS, IFEC, IPRO 
I SAVE , IVALCV,MALC,f^ALCS,MAS,MAVL, N'AVLS,MOD 
A'^, -'TPl , \ \ ,NAA,NAi3, NAG,NAML , NBLK,NF0, NJWM, NSCHED, 

‘.i R 1 > j » !■<’ T P , 'J T R , N U C A 


J,JOVFL,ICLK 

IH0LC(6) 

I'-iTrOc.K^2 iHilLO 

K-Y = 1 = I/O I iTEkRU^n IMTIATIQ?^ 

2 = I/O P!T-Rr(UPT COMPLETION 

3 - JOB CnMOLETION 

h r ( • IJ LLS , JOB= ' » 14, " K£Y= • , I 3, • IPASS ( 1-4) , IPROSC 
^[CPU ARE') 

F'j'^ ' \ I ( 4( cx, I n ) 

16( 2X,I3)) 

FI -■ 'AT( ; / « 2X, 13 ) ) 
cr 7i, I 1 , 1 .";C,2:C ) ,KEY 

CHAPr {JOB, j,N^^ATNI ) 

J?/--J(27, JOB) 

C«l L r*ACK{ •,J27,i23, 12F ) 

J ( JOB ) = J2 7 


cAU UOMiX(7,6, J27,INL7) 
If { iNC/.-O^i) GO TO 9 
j: -=J{i ,JOb) 

CALL UNO.-.X ( L5, 7,J1^, INP) 

ir-( i‘fP-IP2> 2:-3,2-J,2 

If 1 1 >.;ss( ;)-ic'i)3,2:‘',2.j 

J : ? ^ J ( .: 7 , J :’,B ) 


pAfp To 

OP POOR ctZ!n 
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IF(NMATNI-INll I0f200,200 

9 CALL PACKIO, J27,0t64) 

J(27,JOB»=J27 

GO TO 12 

10 CALL PACK(0,J27,32,32) 

J(27,J0B)=J27 

12 J2?=J(27,J08) 

CALL UNMIX(11,10,J27,IND11) 

IF(INOII) 20,20,30 
i:-: IF(IPASS(9M 70,70,55 

3C IF( IPASS(9)-3) 70,50,50 

5:. CALL CKIQS(0,J0B) 

CALL CKI0S(0,J0B) 

55 CALL CKIQS(0,JQB) 

61 CALL PACK(0, 327,2048,2060) 

J(27, J0B)=J27 
6:o CONTINUE 

6C1 FORMAT! • EXIT LLS AFT I/O I NT. I NIT . , JOB= • , 1 4, • IPRQSU 
CCPU ARE • ) 

RETURN 

70 CALL PACK! D, J27,8,8) 

J( 27, JOB )=J27 
NP^ICECS 

72 IF(ICEC(2,NP)-J0B)74,80,74 

74 NP=ICEC( 5,NP) 

GO TO 72 

80 IACT=ICEC(4,NP) 

CALL PACKIO, lACT, 0,3) 

ICEC(4,NP)=IACT 
IPA5S13)=IPASS(3)“1 
GC TO 600 

2C'J J27=J(27,J0B) 

C PRIORITY OF JOB, P, NO. JOBS AWAITING CPU)0,N0. I/O OPS)N 
CALL UNMIX C 11, 10, J27 , INDll ) 

IF(INDll) 205,205,500 
2<:5^ INDEX = ICeCS 

210 IFIINDEX) 215,215,220 ' 

215 CALL CKCPU(J0B,0) 

GO TO 12 

22c NJOB=ICEC( 2, INDEX) 

NJ27=J(27,NJ06) 

CALL UNMIX(5,4,NJ27, IND5) 

IFIIND5) 230,230,225 
225 INDEX=ICECI5, INDEX) 

GC TO 210 

23. CALL UNMIX(3,2,NJ27,IN03) 
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23tj 

24j 

245 

2 5c 

26C 


.'32 


^ 1 , 
H5 
32 
3 25 

? 3 . 
^ 3 •> 


■^6 


IF(IND3) 225,225,235 
CALL UNM1X(2,1,NJ27,INC2) 

IFUND2) 240,240,245 
IK IPASS{4)-M) 245,225,225 
CALL UNMIX( 11,10, NJ27,IN011) 
IFlINDll) 250,250,300 
CALL CKCPU(JOB,NJQB) 

IFl IND2.EQ.0) IPASSI4)=IPASS(4)+1 
I'»ASS(3)=IPASS( 3) + l 
CALL PACK ( : ,NJ27,2,254) 
J(27,NJG0)=NJ27 
I ACT = ICEC(4, liNJDEX) 

CALL PACK! ", IACT,2,3) 

ICeC { 4 , INDEX) =I act 
.C TO 12 
A F K E E = C 

DC 321 KKK=1,NCPUS 
IF ( ICPU(KKK) .EQ.O) NFRE6=NFREE+l 
IF(NFRFE-2) 310,3:5,3j5 
CALL CKCPU(<:/,NJQO) 

CALL CKtPUI J.NJQfi) 

30 TO 25? 


CALL LAST3 ( N JOB , 0 , NO 1 , \02 , N03 , JO0PT , J OB ) 
IF(NFREE) 350,350,320 
IMNOIJ 225,225,325 
CALL CKCPUIC,NJnB) 

OC TO 360 

niN?2) 225,225,355 
JC- B=ICEC ( 2 ,Nj2 ) 

CALL CKCPUUOBB, NJ08) 

J2 7P=J( 27, JOBB) 

call PACK! ?, J27B,68,68) 

.J{^7,jnBB)=J27B 
1ACT=ICEC(4,Nj2) 

C^LL PACK! ?, IACT,C,3) 

ICtCl4,N02)=IACT 
iPi>S(3)-IPASS( ?)-l 
JCP.A=ICEC(2,Nr'l) 

Call CKCPU( JORA,Njr)B) 

J? rA^J(2/, JOBA) 

CALL PACK! ‘ , J27A,68,68) 
j 5 • 7 , jDBA ) =J27A 
ia:t=icec(4,n:i) 

CALL PACK! ), lACT, T,3) 
i :rC(4,N^l J^IACT 
! ■’ vib(3) = !PASS( 3)-l 
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GC TO 250 

C JQ8 IS A TMR JOBf 3 CPUS RELEASED 
50J INDEX=ICECS 

DC 505 KKK=l,6 
505 IH0LD{KKK)=0 
5i: IF(INOEX) 555,555,515 

515 NJOB*ICEC( 2,IN0EX) 

NJ27=J! 27,NJ0B) 

CALL UNMIX(5,4,NJ27,IND5I 
IFUNOS) 520,520,550 
52 j call UNMIX(3,2,NJ27, IN03) 

IF(IND3I 550,550,525 
525 CALL UNMIX{2,1,NJ27.INC2) 

IFUN02) 530,530,535 

53j IF< IPASS(4)+IH0LD(4)-NI) 532,550,550 
532 1H0LD(4)=IH0LD( 4)+l 

535 CALL UNHIX( U, 10,NJ27, INDll) 
IFdNDll) 540,540,545 
54C IH0LD(5)=IH0LDI 5»+l 

IHOLDI IH0LD(5) > =INOEX 
IF(IH0LD(5)-3» 550,565,565 
545 CALL CKCPU(JOB,NJOfl) 

CALL CKCPU( JOB,NJOB) 

IHDLD{5»=1 
IH0L0(1)=INDEX 
CO TO 565 

55.^ I»\DEX = ICEC (5, INDEX) 

GC TO 510 

555 IM IH0LD(5 )-l) 556,558,560 

556 CALL CKCPU(J06,0) 

558 CALL CKCPU(J08,0) 

563 CALL CKCPU(JOB,0) 

565 IH0L0(6) = I HOLD! 6H-1 

I F( IH0LD(6 )“IH0LD{5) ) 570,570,12 
57u INDEX = IHOLD( IH0L0(6) ) 

NJOB-ICeC( 2, INDEX) 

NJ27=J(27,NJ0tJ) 

CALL CKCPU( JOB,NJOB) 

CALL UNMIXI2, 1,NJ27, IND2) 

IF( IND2.EO.0) IPASS(4)=IPASS(4)+1 
IPASSI3)=IPASS( 3)+l 
CALL PACK! 0,NJ27,3,255) 

J( 27,NJOB) =NJ27 
I ACT=1CEC( 4, INDEX) 

CALL PACK! 0, TACT, 2, 3) 

ICeC(4, INDEX)=IACT 
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GO TO 565 

C r/*' INTLrtRUPT COMPLETION-COMING FROM PROGRAM EXECUTOR 
L:Cj J27=J127, JOB) 

1103 FORMAT! « LLS WILL NOW CALL SHAPE TO UPDATE NIP FOR JOB 
C'tI4, ♦ 1000’ ) 

L 

CALL SHAPE! JOB, UNMATNI) 

CO 1005 KKK=1»6 
ID. 3 IHLLD!KKK)=0 

CALL CKIOS! JOBfO) 

CALL UNMIX! 14, 13, J27, LOAD) 

IF!LOAO.EO, 1 ) IPASS! 5)=IPASS!5)-1 
CALL UNMIX! 11,13, J27, INCH) 

IF(INDII) I jlO, 1010, IC15 
l.M. NFRFfc=0 

Ci: 1M2 KKK=1,NI0S 

i:i? I F ( IPROS ! KKK ) . EQ. D) NFREE=NFREE+1 
IFINFREE-2) 102C, 1200, 1C20 
1.13 CALL CKinS!JOB,C) 

CALL CKinS! JOB,f) 

IF!LOAD«FC. 1 ) I PASS ! 5 ) = IPASS! 5 )-2 
sFREE=3 

ic<i. jn,;ex=icfcs 
1.2^ U! INDEX) U6C, 1060, 1030 
1 3 ,. NJOB^ICEC! 2, INDEX) 

NJ27=J! 27.NJOB) 

CALL UNMIX(5,3,NJ27, INC54) 

[F(IND54-U ir35, 1037,1035 
I 35 INUEX=ICEC(5, INDEX) 

1,0 TO 102 5 

K37 CALL UNMIX(14,13,NJ27,LCAD) 

IFILOAD 1 340, 1 a: ,1038 
13 .’ IF! If>ASS(5)-IG2) 1340, 1C40, 1035 
I A" call U.NMIX!1L,10,NJ27,IND11) 

IF(INUll) l-j5C, 1C50, 1045 
l,'^^ IF!NFkEE.LT.3) GO TO 1C35 
CALL CKinS ! i.,NJ08 ) 

CALL CKlnS!0,NJ0B ) 
ir(LOAD.EO.l) IPASSI5)=IPASS!5)+2 
lH[Ln!5) = l 
I! oLD! I ) =I NDEX 
,0 TO 106: 

I 3. IhfLU! 5 )=I HOLD! 5)4-1 

lUiLD! IHOLD! 5) ) =INDEX 
IF( 1HQLD(5 )-3) 105 5, 1 j6C,106u 

L.y> IF(, FREE-1) 1 :-6.:, 1 ;60, 1035 
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1060 IHQLD(6)=IH0LD(6I+1 

irnH0L0(6)-IH0L0(5> ) 1C65. 1065 1 1200 
1065 IN0EX=lH0LDnH0L0(6) ) 

NJCB*ICEC(2* INDEX) 

NJ27=J(27,NJOB) 

CALL CKlOS(OtNJOB) 

IPASSI3)=IPASS(3)*l 

CALL UNMIX<14f 13»NJ27,L0A0) 

IF(L0AD.EQ. 1) IPASS( 5)=IPASS(5)+1 
CALL PACK(0,NJ27, 2048, 2056) 
J(27,NJ08)=NJ27 
IACT=ICEC(4, INDEX) 

CALL PACK( 3,IACT,2,3) 

ICtC(4, INOEX)=IACT 
r,0 TO 1060 

C RESET JOB’S STATUS, RESET IPROS IF NECESSARY 
C LOUK FOR CPU(S) FOR JOB, GET OUT 
I2v: J27=J(27,J0B) 

CALL PACK(0,J27, 0,2176) 

J(27, JOB)=J27 

CALL UNMIX(6,5, J27, IN06) 

IF(IN06) 1210,1210,1205 
12j5 CALL PACKIO, J27,0,32) 

J(27, J0B)=J27 
GO TO L63C 
12K NFR6E=? 

UO 1212 KKK=1,NCPUS 
1212 IFIICPUIKKK) .EQ.O) NFREE=NFREE+ 1 
CALL UNMIX( 11,1C,J27,IND11) 

IF(INDll) 1285,1285,1215 
1215 IF(NFR6E-3» 1220, 1295 , 1295 
122 j NFED=3-NFREE 

CALL LAST3( J06,G,N01 , N02 ,N03 , JPNT, JOB ) 
IF(N£E0-2) 1260,1255,1225 
1225 IFIN03) 1265,1265,1231 
1230 NJ0B = 1CEC ( 2,N03 ) 

CALL CKCPU(NJ08,J06) 

NJ27=J( 27,NJ08) 

CALL PACK! v,NJ27,68,68) 

J( 27,NJOB )=NJ27 
IACT=ICEC( 4,N03 ) 

CALL PACK( 0, I ACT, J, 3 ) 

ICEC(4,N03)=IACT 
IPASS(3)=IPASS(3)-1 
1235 NJCB=ICEC( 2,N02) 

CALL CKCPU(NJ08,JOB) 
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NJ27=J(27»NJ06) 

CftLL PACK( Of NJ27t68,60> 

J(27,NJ061 =NJ27 
IACT*ICEC( A,NJ2) 

CALL PACK( Of lACTfOfB) 

ICEC(4f N02 )*IACT 
IPaSS( 3)=IPASS( 3)-l 
MJQ3-ICeC( 2fN01 ) 

CALL CKCPU{NJOB, JOB) 

NJ27 = J{27,NJ013) 

CALL PACKCfNJ27f68f 63) 

J( ?7,NJ0B)=NJ27 
I ACT = icec( a,n:u 
CALL PACK( 7f I ACT, 0,3) 
iCEC(4,Non = iAcr 
IPAS6(3)=IPASS( 3)-l 
CALL UNMTX 12, 1, J27, IND2) 

1F( IN02 .EO.l > GO TO 1251 
IPASS (A- ) = I PASS* A) +I 
CALL PACK( , , J27,2,8198 > 

J(27, jrjB)=J27 
Ji' TD 160C 

IF(N'21 1265,1265,1257 

CALL CKCPU(0,J0B) 

GU TO, 1235 

lF(rg01 > 1265,1265,1280 
CALL LAST3( JOB, 1,N01 ,N02,ND3, JPNT, JOB) 
IF( rU 1275,1275,1275 
NJ.!U= ICFC ( 2,N0l) 

CALL CKCPU(.'^J03 , JOB) 

CALL CKCPU(\JUB ,JOB) 

CC TD 12A5 

CALL PACK( J27,A, 8196) 

J{27, J(JB)=J27 
IACT=ICFC (A, JPNT) 

C^'LL PACK) ■), IACT,0,3) 

ICCCIA, JPNT)=IACT 
1PA5S(3)=IPASS(3>-1 
'.0 TO 1600 
CALL CKCPU(C,JOB) 

CALL CKCPU(wfJOB) 

CO TO 12 A j 

IF(NFKEE) 129C, 1290, 13CC 

CAI.l LAST3( JOft,C,NOl,NC2,N03, JPMT, JOB) 

IF(N-l) 1275, 1275, 12A: 

CALL CKCPU(OfJOB) 
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CALL CKCPU(0,J0B) 

13CJ CALL CKCPU(0,J0BI 
GO TO 1250 
16C0 CONTINUE 

1605 FORMAT!* EXIT LLS AFT 100 CMPLT t JOB* * ♦ I A, • IPROSEICPU 
CAR6*) 

RETURN 

C JOB COMPLETION 
20C0 J27*J(27, JOB) 

CALL UNM1XU1,10»J27, INDll) 

1 F( lNDin2002f2C02t4COG 
C THt JOB IS simplex 
20C2 CALL UNMIX(8»7, J27, IN08) 

IF (I N08> 2005, 2005, 3000 
C JOB IS CPU MODE 
2005 Njp=icecs 
GO TO 2010 

2CC8 NJP*IC6C(5,NJP) 

201.: IF(NJP) 2850,2850,2012 

2.H2 NJQ8 = ICEC(2,NJP) 

NJ27=J(27,NJQB) 

CALL UNMIX( 5,4,NJ27, IN05) 

IF(IND5) 2000, 2013, 2C08 
2013 CALL UNMI X (3,2,NJ27, IND3) 

IF( INO3)2DO0,2OC8,2O1A 
C NJOB IS AWAITING CPU 
201A CALL UNM1X( 11,10, NJ27,INDll) 

IF(INDII) 2016,2016,2100 
C NJUB IS SIMPLEX 
2316 CALL CkCPU( JOB, NJOB) 

GO TO 2875 
C JJOB WAS TMR 
21 ;j N£=C 

CO 2U4 I = 1,NCPUS 
IFdCPUl I ) ) 2 104, 21 ''.2,210 a 

21v2 N£=NF+1 

21C4 CCiMTINUE 

IF(NE-2)22)0, 2106,2106 
C TWO Ct>US ARE EMPTY! R MORF) 

21C6 CALL CKCPU(0,NJ08 I 
21C.8 CALL CKCPU!0,NJ0B) 

GO TO 2016 

C LESS THAN 2 CPUS ARE EMPTY 

22'.: CALL LAST3(NJOB,0,N01,N>2,N03, JOBPTtJOB) 

1F!.WE)2220, 2220, 2210 
C ONi CPU IS EMPTY 
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22i:- |F(N01>2008»2C38t2212 

C N,:i IS BUUNCABLE-CAN FIT JOB IN 
C NOW FIND NAMES OF NOl 
2212 JDBl^ICFCI 2»N01 ) 

CALL CKCPUIJOBl fNJOB) 

C NOW UPDATE JOBl-SET 3 AND 7 
J27=J(27,JOBl) 

CALL UNMIX(3,2, J27,IND3) 
call PACK! Of J27,68,68> 

Jl 27f JORI) =J27 
IACT=ICEC( AfNOlI 
CALL PACK! Tt IACT,0,3) 

ICeCIAf N!ll )- lACT 
IPASS(3I=IPASS(3)-l 
IF(N£) 20l6f 2016,2108 
C i'ML) CPUS ARE EMPTY 
2z r IF(N :2)2008,2:C8,2222 
C rw'J JC3S ARE BOUNCABLE 
2222 JCB2=ICCC( 2 ,Nj2) 

CALL CKCPUI JOB2,NJOO) 

J27=J(27, J0B2) 

CALL PACK! J27,68,68) 

J ( 27, JDB2 ) =J27 
lACT-ICECI ^,N j2) 
call PACK!-', IACT,C-,3) 
lCEC('f,N''l2) = IACT 
IPASS(3)=IPASS(3)-1 

00 Tu 2212 

C UPCATr ICPU WITH ZERO-NOTHING TO REPLACE JOB IN CPUS 
CALL CKCPU(JOe,C) 

(;t TO 9999 
C UPi AT t NJOB 

CALL UNMIX (2 f l,NJ27, IND2 ) 

IF( 1ND2.EQ.;) IPASS(4> = IPASS(A) + l 
CALL PACK! : ,NJ27,2f 70) 

J ( >7,NJ0B) =NJ27 

1 ACT = iCBC( 4,NJP ) 

CALL PACK! I ACT, 2, 3) 

1CFC(4,NJP )=I act 
IPASS( 3J=Ic>ASS(3) + l 
',f TC 9999 

mock .vAS I/O, JOB WAS SIMPLEX 
} . NJP^ICECS 
CC TU 3;)?4 

r -2 .\JP=ICLC( 5,NJP ) 

3 4 IFINJI’J 3P '6,3 j;6,302 j 
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C COULD NOT FIND JOB TO TAKE PROCESSOR 
30G6 CALL CKIOS(JO6,0) 

30C7 CALL UNMlX(6t5t J27» IN06I 
IFnND6> 9<599. 9999, 2005 
C IS NOT END OF CHAIN-NJP POINTS TO NJOB 
3020 NJ06*ICeC(2,NJP) 

NJ27=J< 27,NJO0I 

CALL UNMiXf 5,3,NJ27, IND54) 

IF(IND5^-U 3002,3022,3002 

3022 CALL UNMI X ( 14, 13,NJ27,L0A0 > 

IF(LOAD) 3024,3024,3023 

3023 IF(IPASS(5)-I02) 3024,3002,3002 

C NJOB IS WAITING lOP AND NOT WAITING MEMORY 
3.24 CALL UNMlxm,10,NJ27,IN01l) 

IFl IN011)3326,3026,3100 
C NJOB IS SIMPLEX AND NEEDS I/O PROCESSOR 
3C26 CALL CKIOS (JOB, NJOB) 

CALL PACK(0,NJ27, 2046, 2056) 

J(27,NJ0B) =NJ27 
IACT=ICEC(4,NJP) 

CALL PACK(0, IACT,2,3) 

ICEC(4,NJP)=IACT 

IPASS(3)*IPASS13)+1 

IF(L0A0.EQ. I ) IPASS(5)=IPASS(5)+1 

GO TO 3007 

C NJOB IS TMR JOB-CHECK FOR EMPTY I/O PROCESSORS 
3UJ NEMTY-0 

CO 3104 I=l,NIOS 
IFl IPROS( I ) ) 3104, 3 102, 3104 
3U2 NFMTY=N6MTY+1 
3IC4 CONTINUE 

IFINEMTY-2) 3006, 31 10,3 110 

C WE HAVE 2 (OR MORE-MORE IS BAD) EMPTY I/O PROCESSORS 
3113 CALL CKIOS(0,NJOB) 

CALL CKIOS(0,NJ0B) 

IF(LOAD.EQ. 1) IPASS< 5) = IPASS(5)+2 
GO TO 3026 
C JOB IS TMR JOB 
4CC^ CALL UNMIX( 8,7, J27, IND8) 

IF( IND8)4C02, 4002, 4500 

C JOB IS CPU MODE-SEARCH FOR 3 HIGHEST PRIORITY JOBS 
C WHICH want CPUS-IF ONE IS TMR, GIVE IT TO HIM OTHERWISE 
r. GIVE TO 3 SIMPLEX-INITIATION IRRELEVANT 
4.-32 NJP=ICECS 

DC 4j03 KKK=1,6 
4:03 1HCL0(KKK)=0 
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!\RUY = 3 

GC TO 4006 

NJP = ICEC(5.NJP) 

4,v6 IF(NJP) 43C0, 4300,4007 
4:. 7 NJ0B=ICEC(2,NJP) 

NJ27=J(27,NJOB» 

C4U UNMIXI5,4,NJ27, INC5) 

IFUNCSJ 4008,4006,4004 
4:C8 CALL UN^^IX(3,2,NJ27, INC3) 
ir(lN03) 4004, 4004,4012 

C ne NOW HAVE AM ACCEPTABLE J06-IT WANTS A CPU 
4^12 call UNMIX( 11,10, NJ27,INDll) 

IF(IN011)4 n4,4014,41vC 

C NJDh IS SIMPLEX 

4C14 url;y=nrdy+i 

IHCLDINRDY I =NJP 
IF (NROY-3 ) 4GC4,4016,4'^16 

C WE HAVE FOUND 3 SIMPLEX JOBS WANTING A CPU-FINO NAMES 
C UPDATE, PUT IN CPU 
4 16 DO 4030 I=1,NRDY 

NJOH=ICECt 2, IHCLDl I ) ) 

NJ27=J( 27,NJ0B> 

CALL UNMIX (2, 1,NJ27, INC2) 

IFl INC2.E0.v> IPASS(4)=IPASS(4)4l 
CALL PACK( ?,NJ27.2,254) 

J I 27,NJ013) =NJ27 
CALL CKCPU(JOB,NJOB) 

IPASSI3)=IPASS(3)+1 
I AcT=ICEC( 4, IHQLDI I ) ) 

CALL PACK! 0, IACT,2,3) 

4JJ ICECi 4, IHOLDI I) ) = IACT 
GC TO 9999 

C FOUND ACCEPTABLE TMR JOB-NAME NJOB, INDEX NJP CN ICEC 
4U. CALL CKCPU( JOb.NJOB) 

CALL CKCPUI jnB,NJQB) 

CALL CKCPU(jnH,NJOB) 

IACT=ICEC(4,NJP) 

CALL PACK! :,IACT,2,3) 

rCEC(4,NJP)=IACT 

CALL UNMIX(2,1,NJ27,IND2> 

IF(IMD21 4165,4105,4110 
41.5 IPaSSI4)=IPASSI4)+1 
411j IPASS(3)=IPASS( 3)+1 

CALL PACK! \NJ27,2,254) 

JI 27,NJOB)=NJ27 
3C rO 9999 
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C FOUND END OF CHAIN BEFORE TMR OR 3 JOBS 
IF(NR0Y-U4302t<»306,A3C8 
C NO JOBS FOUND 
<♦302 CALL CKCPU(JOB.O) 

CALL CKCPU( j'OBtOI 
CALL CKCPU(J0B,0» 

GO TO 9999 
C ONE JOB FOUND 
A306 CALL CKCPUtJOBtOI 
C FOUND 2 SIMPLEX JOBS WAITING CPU 
A3C8 CALL CKCPU(JOB»C> 

GO TO 4016 

C JOB IS TMR AND RELEASING 3 I/O PROCESSORS 
4500 NJP=ICECS 

DO 4501 KKK=1,6 
45vl IHCL0(KKK|=0 
NROY=C 
GO TO 4510 

4505 NJP=ICEC(5,NJP) 

4510 IF(NJP) 4600»4600.4515 
4515 NJJOB=ICEC( 2tNJP) 

NJ27=J(27,NJOB) 

CALL UNMlXC5,3f NJ27, IND54) 

IF(IND54-1) 4505,4517,4505 

4517 CALL UNMIX( 14,13,NJ27,LOAD) 

IFILOAD) 4520,4520,4518 

4518 IF( IPASS(5)-I02) 4520,4505,4505 

C NJGB IS WAITING lOP AND NOT WAITING MEMORY 
4520 CALL UNMIX(11,10,NJ27,1N011) 

IF (INOI 1)4525, 4550,4525 
C NJ08 WAS TMR 
4525 CALL CKIOS (JOB,NJOB) 

CALL CKIOS (JOB,NJOB) 

CALL CKIOS (JOB,NJOB) 

IACT=ICEC(4,NJP) 

CALL PACK(0, IACT,2,3) 

ICEC(4,NJP»=IACT 
IPASS(3)=IPASS( 3J+1 
NJ27=J(27,NJ0B) 

rF(LOAD.EO.l) IPASSI 5)-IPASS(5)+l 
CALL PACK! 0,NJ27, 2048, 2056) 
J(27,NJOd)=NJ27 

453D CALL UNM I X ( 6, 5 , J27, I N06 ) 

IF( IN06)4535, 4535, 4002 
4535 GO TO 9999 
C NJUB WAS simplex 
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455v‘ NRDY»NR0Y+1 

rHOLO(NROY)=NJP 

IF ( NROY-3) 4505, 4560f 4560 

C HAV£ FOUND 3 SIMPLEX JOBS WANTING 1/0 PROCESSORS 
456: 00 4590 I=l,NROY 

NJDB*ICEC( 2, IHOLOm » 

NJ27=JI27,NJ0B) 

CALL PACK(0,NJ27, 2048, 2056) 

J(27,NJ0B)=NJ27 
IACT = ICEC(4, IHOLOm ) 

CALL PACKIO, IACT,2,3) 

ICECt4, IHOLOII ) ) = IACT 

IPASS(3)=IPAS5( 3)+l 

CALL UNM1XU4,13,NJ27,L0A0) 

IF I LOAD. 60*1) IPASSI5)rIPASSl5)^l 
459j CALL CKIOSI JOB,NJOB» 

GC TO 4530 

C CAVE OUT OF CHAIN BEFORE FINDING 3 SIMPLEX JOBS 
46C0 IF<NRDV-n4605,46l5,4625 

C NO JOBS FOUND 
46.:s CALL CKI0S(J0B,0) 

CALL CKIGS(JOB,C) 

CALL CKI0S(J0B,0) 

GG TO 4530 
C 1 JCB FOUND 
4615 CALL CKI0S{J08,C) 

4625 CALL CKI0S(J0B,01 
GC TO 4560 
9999 J27=sJ(27, JOB) 

CALL PACK(-^,J27,0,23C3) 

J{27, J0B)=J27 

«C:5 FCRMATC EXIT LLS AFT CMPLT OF JOB • , 14, • IPROSUCPU ARE 
C* ) 

RETURN 

ENU 
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SUBROUTINIE PPXdDXGAU) 

C PEX EXECUTES PROGRAMS BY GENERATING A RANDOM NUMBER 
C OF MEMORY ACCESS REQUESTS FOR EACH ACTIVE JOB. IT THEN 
C GRANTS A NUMBER OF ACCESSES FROM EACH MEMORY MODULE 
C TO EACH ACTIVE JOB ON THE BASIS OF THE NUMBER 
C RE.UESTEC, JOB PRIORITY AND NUMBER OF AVAILABLE FROM 
C EACH MODULE. IT ALSO KEEPS UP WITH THE EXECUTION 
C POINT OF EACH PROGRAM ANU A PREDICTION OF THE 
C NU^'BEP OF available ACCESSES FROM EACH MEMORY MODULE 
CCMMON/BLK3/ IDISTI25) ,Fl25fAl ) ,ND1ST 
CGMMJN/riLK7/J( 27,64) 

COMMON/PAKB/ ICLK 

CCMM0N/BLK12/ICECSZ,IC0N, INlflFECSZ, IPCT, IPl, IP2,1C1,1 
C^:z, IU3, IR, IS, ITA,MINBLK,MMCT,MMST,MTOTAL ,NI ,NIOS, 

LNMODStNPCLtNPCS, NCPUS , I F EDBK , I RNl , I RN2 , I RN3 , IR 

r.N4, IRN5, IRN6, IRN7, IRNB, IRN9, MMAPF,MMSPF 

r 

CO^'MnN/BLK13/R'’"l,Ro ,!2 , RP03, RP‘'4 , RPS5 , R P06 , RP “7 , RPC8 , R 
LP’‘7, RP1> ,RPM 

CCM'^:iN/0LK16/I[iWCTR(24) ,ICEC(5,4'-) , ICECS,ICPU(10) , IPAS 
LSI? ) , IF£CS,IFEC(40,4),IPR0S(16),ISAVE(3,3),IVAL 

l,OV(i ),f1ALC(256,5) , MA LCS , M A $ ( 24 ) , MA VL ( 1 29 , 5 I , MAVL 

(24),MTPlt24) ,NA(24) , NA A ( 24 ) , N AB , N AG , NA 

CMU'*' ),NBLK(128),NFB(3) ,NJWM,NSCHFO, - NREQI4 

C •,2 4),r>lTP(24),NrR(24»,NUCA(24) 

I INTEGER *2 1BWCTR,ICEC, ICECSfICPU, IPASS.TFECS, IFECflPRO 
SS, I SAVE, I VAL0V,MALC,MALCS ,MAS,MAVL, MAVLS ,MOD 

Or.M.'^TPl ,NA ,UAA,NAB, NAG » NAML , NB LK , NFB, N J WM , NSCHEC , 

,.viK‘Q,.NT^rjTR,HUCA 

CCM-iON/RLKl 7/ ISTCMT, I STAT(6,40.') , IUTU6.2 ;vG) 

IMEGER«2 ISTAT,1UTL 

r.rpMor.j/BLKie/ an,cuu,plu,bwu,spu,bcuu,rpuu,3bwu,bsou,a 

CCCUt AP(/U, AllWU, ASPUfBQSIZ , AOSI Z 

I‘xT;G;R* 2 J,jnVFL,TCLK 
OIVt,|SION MSPACE(24) 

I mTEGER^Z ICONI ,MO[jSTZ,MSPACE, JMSTOT, I ACCS, INPfHFIX 

-inrsi Z=MT0TAL/NM0US 

ICII 'II = ICON/Mi>^CT 

CALL U’)MIX{2,I,IS,IWRT0) 

I NL1=ICLK- IPASS(6) 

IN IN01/-2.)*2 ' 

IF « I ir . ANj, InDI .N)P .3) CALL CEC(4,D) 




0? 
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I .. I. = lCLK -( TCLK / . 

IF < I > 11 ..^:-. . ) yC TO 4 

i.-lT ( d ,15 ) ! CLK , UPAS 5 ( KKK ) ,KKK = l , i :» 

R iT (* I " PEX-T P -’ i ; t I PASS ( l - l ' ) A !< E ' t 1 1 ( 1 X f I A ) ) 

I aSS ( < )■ = 

' T.iL = . 
i = iC 'CS 

I f M ) r . , 5 , 7 
, 7 I T ~ ( f , d . ) 

hr .,'' 4 T (* I ': = C ..AS : mPTY UPCN IMFi^lNG PrX ') 

TU-; . 

f 1 i V =1 
T ( I Y) = 

\ T ^ ( i V ) = 

' : I / = ! , TCi C SZ 

. < ■; ( I / , 1 V ) = 

;/ TI l .'4 

II U ) : 

I : r ;; i : ( 1 1 ) 

'> 1 . l . ■ I X ( ,. » I i » I !l ) 

[i n 1 -1 ) '• A ? 

. R : •. I ' ♦ I » 

! '■ 

R .(-.:) = ( iC L ( - v , 1 ) -1 \ L ‘ ) +1 
J - ■ - 1 i . C ( . » ^ ) 

! ' ' ';s < .• > ^-1 ( ' ) < : 

J ' - J 1 1 , J lA ) 

1 t I .GT . . J J ’ P ' TP ill 
• i Y = 1 R . i;.:S 

( lY) R 

4 ‘.LI ( iSt 7 , Ji bl.K ) 

■ ' i ' - I 

III - LK I P t (- t :'S 
. ' ST - • -LC ( . blK . ? ) / r'"-'T S I 74 1 
r ‘ -R •• Lr . T » + f >. LC ( ThL :-' t : )”1 )/> M ! Siz + i 

n (•• . ip : T - 1 ) '•■ 7 , ’StSC 

1 1 J ,,;| S T-f 1 

P . ^ il .' R.-l 

r -’. / r r. y = i ST , pi : 

-s ( KKX )=.•<,?<"<'. E IKKX ) 4 - rir 512 

' t ; ( I - un ; - ) = ^ P . P .■^ C.E ( -• PL . Er ') - H’-iLC ( IRLiSt 3 ) 4 - r-RLC I ‘' S . I K , 
- 1 i u:--: - 1 1 1 7 

P ' • p ■ - V.r ( ^ •'.L > 4 ^ ’ L'S P ' M . r '5 I 

f ' ' (.p.SlZ 

[I f -K r- '-'j) S'- 
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S' 9 1 MSP4Ct(M0nST)=MSPftCE (W0CST)+M4LC(MBLKi5) 

GQ TO 592 

591 MSPACE(.MOOST)=MSPAC=(MQDST)*KTcMP2-MALC(MBCKf 3) 

592 GO TO t6:»70feD,92),KCNT 

6,> J19=J(19, JNAM) 

KCNT=2 

CALL UNMlX(8tO, J19»MBLK) 

IF(MBLK.NE.O) GO TO 55 
7i> J17 = J( I7i JNAM) 

KCJT = 3 

CALL UNMIX(15,11,J17»MBLKU) 

CALL UNMU(12,3f J19,«BLKL» 

MBLK = MaKU’'16+MBLKL 
IFCMttLK.iWF,.' I GO TO 55 
J22 = J(22,JNAM» 

KC'iT = A 

CALL UMMIX(6,7, J22»MSPIL) 

!FCr:,PlL-n l.5,85»l.'5 
«5 LG oC IX =1,10 

IVALnV(IX)=j 
CALL OVFLMOIO, JfsiAM, 8 , IVALOVtK > 

IX^l 

IXKLK = 1VAL0V( IX) 

If (M.5LH .'It . .•) CO TO 55 
92 IX=U + 1 

IF(1<-1.) 9’,9'A,97 
9 7 Wr.lTE(<S, 1 : ' ) JNAM 

1. TL -f'vAT ( 56H MOAE THAN l> BLOCKS ASSIGNED TO J0B,!7) 
1 5 J'‘'iTrU = .V 

i!0 liu IY=1,NM0DS 
JN‘SrnT = JMSTnT + MSPACf (IV) 

U Ci-viTlJiJE 

:V I AL = !^TAL + JMSTOT 
iU CALL v'ANDUI lR a,IY,RAN) 
iR a = iY 

IF(9A.i>,5) 114,112,112 

11^1 i:;G^X=IFlX(B''. v(KAN-;5)) + 1 
VALI'L = F ( IDXGAU, INHEV ) 
i,r To 113 

llH INi fX=IFIX(8 .5~RAN) )+l 

V A LUE =- F ( I DX G AU , I ND = X ) 
li’% J2/ = J( ;-'7, JNAM) 

CALL U’!MIX(8,7, J27,M3D£) 

If (^'.Ot’rJ) 13'., 12 ,,13 
12 J1 : = .J( i 1 , JNAM) 

C.4LL l.JNHIK(i •, , Jil, iriDf':) 
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J12=J(I2»JW6MJ 

CALL U!V;MlXtlf^t0,Jl2,lMCS» 

ST0=FLUAT( INDS) 

AI^ = HOAT( INDM) 

1 AtCS=l A6S( I FIXt VAU)e“>STD+AH) ) 

GO TO ;a: 

J?7=J(2r, J^AK) 

CALL U'JMiXt 14f 13, J27»LCAO) 

IF(L'jAL') 132,132,131 
J17sj( 17,JNAW) 

CALL UNMIX{ ll,v>, J17,N'MS) 

I A CC G= (I COM I M S 1 / VOO S I Z 
GO TO lA ) 

Jli=J(13,JMAM) 

CALL UM«IX( IC Ji3, INUf-i) 

J21=J(21 , JMAW) 

call U‘'MIX(1'‘,:,J21, INDS) 

S r ;=FL(;AT( IMOS) 
w‘/-FLnA.T ( ! 

lACCS = lAnG( IFI X( VALUE ^'STO+AM) 1 
iLlFF=J( 26,Jt>JAM)-J{ 18, JNAM» 

IF(IAuCS-IClFF) 14?,14^,,IA3 

IF( lOIf F-I ACG5-IMD^ ) 143, 143, 144 

I ACC.> = IOIFF 

Ji =J( 1 • , JMAf'-O 

CALL UMF.IX(15,7, Jl '',I\U 

I = I MO 

,i‘,E.2.' ) OG TO 7 .0 

J;:7 = J(<.T', JAMVl) 

CALL uMwiXdl,!. ,J27 ,IK[jU) 

IFII Jill) 14o,i3’ ,14*3 
1 '(.{■ •> = 3* I ACC I 
J X - 1 

IK (f JX) ) l37,H>7,16v 

.■■rO-l { I , J <) = .- 

O'" t:i i7’ 

I f ( JO'ITOT. :-U. ) on TO 162 

I n , JX ) = ( .‘lbt»ACc. ( JX ACCS+JMSTOT-1 )/JMSTOT 
>1! TO’ V6 3 

,.!• i Tr ( 6, i6 ) ICLK, I , ( ICEC (KKK , I ) ,KKK=l,5> 

P X,TIMl = ' , I *««»*FRP1K***** ,6( 2X, 16) ) 
:T , ( JX) =MT 0 ( JX) + JA"0( I , JX) 

JT ’( j<)= JT:»( jX)4FiO 

JX^J/, + 1 

IM .1 t35,4 i 

j; r^.i( '7, J 'JAM) 
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CAU U.MMIX ( 14, 13, J27»LHAn) 
IF<Ll«n) VI;;,71C',7*5 

7.. ‘;5 IT0TA = J(y6,JNAM) 

GO TfJ 715 

71., ITf'T\ = J( ),.iiMAM)+J(l5,JNAM) 

715 J17=J( 17 , JNAM) 

C '^L UMI X ( 11 , j,J17,rMS) 

I ST^^T = ( rMS*J( ia,JNAM) )/ITOTA 
CALL UNMl X{ 11,1 i,J.?7, IN’O) 

•'•TAL=MAL + MMS+2*r4r)»MM5 

HI tGO) 72',7Z?,725 
7S: U=1 

GC T 73 0 
70 5 3 

73. N''l5*^ = 

/iio \i''(' R = N.-'M '3 <■ 1 

IF(.rhn,GT,NMP^RU) GH TO 4 * 

L . '0:.Tli= ■ 

7 T . I IM t.'MC-U.GT, 1 \ CO TO HR ■ 

74'. IK -!> = IKc'.-P+1 

<: TO <745,75 , 755,76., ) ,lKFFf 

7',5 J 1, 

C.ALL U I X < : 5 , 7 , J 1 , 1 ) 

(,•. ro 77,' • 

7 5 J: ,'-J( 1 J\AW> 

CALL U"J MX ( :i, , JIG, I JUX3) 

',r rn 77 

75 3 Ji Jli 7, J'-AM) 

J: 7:.J{ 17, J GAM) 

C L L U ■ K { : 5 , U , J I 7 , I l.C'X 3U ) 
CALL U'jy I .X ( I 2 , 3 , J 19 , I '.'l <3L J 
! ■•■.X3=I t ■>x:>U-r;6 + I .JiXCL 
/. T.' 77 . 

7(.. j : .V,) 

CALL UN:(IX(c ,7, J22, HGuO ) 

[ r ( i ;i ' . L ,M ) GO TO 775 
r I ■> = 

. i. 7 ( f) 5 

7'..;) I , rMO-I 5i< i 9-1 1 

■'C/ IVU 1V( i )=ISKIP 

ciLI. '>vf L',G( 1 , JfMM, H , I VALOV, 1 ) 
I n X • = ! V.ALOVC 1 ) 

I f ( riLMi.L (;C TO 7 7-7 

A. 1 ■ 7f> 

7 7 1 F ( 1 i'Xd.GT. 5) GO TO 7 3.5 
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.-IT (6,77/) 

; ' r ■' 4 • 

) i <f'AT(' « BLOCK INf'rX r'*\K''i-^ PFK, 

7 7 - ' ) 

U (' - L -").L ,;.i ) r.j n 7 l-- 
•.. M i. ./! UX ( 15 , i 3, I OOXt' ♦ I:xn) 

H ( 5 .L . « . n!‘ B ' I (>0 TC 7/-5 
I - ■ "i'.v 

IK' --'^^l 
■ ~ T 7 7 

il(L . , rM4 -;A|.C ( I .-iXfi t 5 ) .Gl. I STsT ) GP TO 79 
L . = .0TH4 '/ ALCn -JOKi*,? J 

1) ( •■ . 1 ) GO TO tA 

I (( I I 74 '’ , /& 3 , 760 

1 .G„ ( ! O-'iXn, 3 ) + I STHT-Lr^JGTH 

f' I ',X - I M' </ .nt;'S 12 +l 
• ■( lyp-'O.Ii ’/) = ! 'vCCS 
f I 'I ..TOy )=MH(':i;l)l!)X)4lACCS 


T 

J 1 

; ( ■: |.p:v ) =i':T 
T; 7.’> 


a r.'x) + iOP 


T ( 7 . O' , 7 5 .. 

,r- : 


1 f 

(I.^ -'M 7c;, 

f': , 



r 



J ' 

- J ^ + ’ 




(jy-‘:‘'0. •>) i 

.5,1 

•‘5 ,?6 


I I I I .'..P.l ) ;)-iPj*.) .? . ) 

. 'i( J/i = ( I ..P J<)«( [7*Jt-l) + IRN5/?)/TPlJ3 

! I ( ■! ( J .)-Ua' ,1 ) • 05,11 . r a 
■ .1 JM = . » A( JO-* ( :, n ii- ‘T.o ( jx) ) / 10 
T £ 1 

i .... : ( J'-') =I :’‘;^TO(.JX)4-l 

•' ; j ' j ^ ( i.\i\ ( .»/: ) x.( I FiVioT - ( jy )-: ) ) / 1 p\'5 

4( ( l K a.-CIt'. ( JX ) } * (COVl=lJV.* ■:;( jy 1 )/{ 

’ ' ) 

■ c ■" i 0; 

T '(.j.)- 

a (.''') ^ 

L( < ( JX) ) M 3 , 1 ,...• 

. - 1 •, . ■; 

. r ( ! ) 1 " ' , 1 T ^ , 2 I 

P ( !^: f (7 , I )-nc L(-, I 2 5 ,75 :,2 20 

J ' =iC - C( .M ) 

( L ( . ( I , JO ) ?5 ,2^.; ,.:25 

I O' i ’( JO-IC:i' : ) 23 . ,25 ',23. 

j ’ - J ( 1 , J ) 

- 1. ' lO : 5, 7 , J : • , p ■'- ) 


PAGJt ?o 
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^ib 

kb : 
2 f . . 
9 ■ 



, 6 1 > 
f 7 . 

>71 


2 7.- 





!>!!>= I Nf) 

ir I , JX )-( IMP’i'ICCM) /NTP{ JX) ) ?A ,» ZAO ,235 

KTPi( JX)=KTP1(JX)^INP 

V-r TfJ 2 5-; , 

JUCA( JX )='v!UCA{ JXH-( IMP^ICON'l )/NTP( JX>“NR?0 (I , JX) 
I-ICt-C(5tr) 

; T G 215 

irniNRTO.^Q.O) GO TO 263 
S-' IT^ (6,9. ' ) 

vlAA AND ^'AS FCLLCW) 

W/1 T>:(6,9- 5) (NAA( IX) tlX^lfNMncS) 

-V'1T:.(6,9v 5) (MAS( IX) , lX = l,N^fJDS) 

24( IX, 14) ) 

• I f — 


iTK'IO = 

r.iu= ‘ . . 

=>L'U- 

If-)T) -‘55,455, 272 

n nctc ( 4 , n-( ic.=c (i , I )/?) *2) 45' ,450,271 


.1 I •>•’= iCrC ( 


1 ) 


'.i ; I = 

.r - ,A ^ 

J. =J (1 ■ ,>)'\AM) 

C'LL U' 15,7, Ji INU) 

I 'i)>= 

J'>' = 


It- 

( 

lOS) 2 

«5, 

2^5 , 

"a 




u 

( 

J>rO( I , JX) ) 

27 

5,27 


f 

29 


•l 2 


f 1 =!'):<? 

FO{ 

I , J X ) 




ir ( 

1TR( JX)-lCu 

Nl) 

' 

t 

a 

1 '■ 

, 295 

1 h 

t 

! ’c'M I , JX)- 

1 1 'J9*I(.C 


i)/NTP( JX ) ) 

J A 

7 

■r( K:9^'ICL'N‘l 

) /.'j 

TP( JX) 

H INP«rjUCA{ 

i r- 

< 

,1 ,-'jK':0( I , 

JX)) ?' 

r 

f 

31 

5 ,31' 

V ^ 


= ,^.0{ I , JX) 







’ s ^ 

^ • 

C 

II 



' 













•iT 


• f ~ '(I M * >+ ' j A r> I 







.7 


‘;.=''^TK2C + ^’*■- 

EOI 






j : 

r 

^ J ( ' 7 , J ' A ^ ) 








L 

L ixdi, 

i r 

J>7, 

I 


91 

1 ) 

' 

u. :,/'’ix(b,/ 

, J2 

7,'^0 

L- 

:* 

) 


1 ■; 

I 

:d'=J( ?6, JNA 

f>' ) — 

J ( 1 (* 

t 

J 

* A 
\ ■* 

fi) 

I ► 

( 

I ii : 1 .ff'. 1 ) 

10 

IFF = 



1 Lj 

IFF 

1 r 

( 

i VA . . 1 01 FF- 

1) A 


Vy 

1 = 

1 uirr 


31 ■'. ,31 : , 30 


page k 
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UJI,.= ■ .3 

.GT. ) AUU=FLOAT{MAGII/FLOAT(NRFOI ] 

[F(,OUF» 3^5,3A5»3'^5 
3i5 IF(I'4i>il) 33j»?55,34i; 

3A. ;^LL = PU'J+3. 

;;n t::'' 37 : 

343 IFd^Cll) 36'),36 j»35'J 

"3. CLU=CUi) + 3, <#AUU 

GC TJ 37 J 
3*55 '>UJ-'’IU+AUU 
GG TO i65 
CLU = CGU + AUU 

J( i8,J 4AM)=J( I« , JUAM) +NAGI 
T'l 375 

W U< JNA-'') = J( 16 »J 4 AM M•{•.v^AGI+2 > /3 

373 GC.TI.4UE 

36, f'.'C'AK' Cai«.>LFTlUN CXUNTOOWM FOR JQ0*tI3»» =',I6) 

J{ L(i» J'4/if^ ) =J (16» JNA‘^ 1 + 1 
1AGT = K/:C(4, I ) 

J.. f d (/■?, J'4A-1) 

CA.L U’'4''1IX{ 14,13, J27, LOAD) 

IFCLTAO.E ).l) GO rU 36; 

[f ( J( l?MJy^MJ-J(3,J\|AM)-J(l5, J74AM) ) 38" ,4'J'.. ,43G 
;-o IF( J( <8, jNAM)“J(26,JNAMn 457,385,385 

3r0 IF(N'OGF) 395,305,393 

:>>>; CM.L PACK( ,IACT,5,4l 

r 5 c; { H , n = I AC T 
.C TO 4" • 

^ 33 CAl L PACK( ■, IACT,F.,8 ) 

IC C ( 4, I I = [7XT 
1F(lJA0.':Q4 . ) C.D TO 45 .. 

J ( . 5, JUAM ) = . 

J { M , J'lAO) =-l 
J{ - 7, J |AM)=J27 
•■I T.) 4 5 

'.G-iL i'ACK( ,IACT,16,L6) 

1 -'(4, n = I ACT 

^ l = .‘,;c ( 5, I ) 

.f Ti, G65 

i--icrcs 
. ' r ' ; 457 

-- 1 -!', :cd;,n 

' 5 7 I f ( ! ) 4 , A 9 ' , 4 6 

i - ‘ --n rc(4, r ) 

F. n L , IK ( o , ? . I A C T , I \ C ) OBIGMAL FAGS'. : 

. i i . . , ) ^ 6 , 4 5 6 , ^ -5 0P 
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^6S J2?-=J(;>7, ICEC(2,I) ) 

JNa^^=ICEC( 2, 1 ) 

CALL PACKl •, J27. >» 121 
J( 2 ?, JNAM) =J27 
CALL PACK( ‘-t lACT, 1 f 31 ) 
ir.EC(4, [ ) = lACT 
lF(r-;r~2) "+7?» 475,^8*.. 

>7^ uGMTI'lUt 

FCPwan* PFX CALLi LLS F08 I/O INTkPT, INlT. FOR J 

, 14) 

CALL LlS(i,JNAM) 

»,r; rc. 4 ‘j6 

^7*> CCvlTIiUL 

“'7C ) J8''AT(’ .40v>) CALLS LLS F08 I/O C^f’TL. FJR J0b'fI4> 

CALL LLS(?»J^‘AM) 

if! TO 4 tJ) ' 

4r.< I STC'4T= ISTC'N'T^-I 

1 sta ni , I ) =jnam 
1 ST.\n2 , l STCNT) = 1C-C(3, I 1 
iSr.\T( ! , ISTCNT)=1CLK 
J ’?^J(27,J lAV ) 

CALL U-i'''IX( I »7, J27, 1\L'} 

[f ( I -jr. :-(v. ) CC T.) 481 

in J(«,JNA^.) .30* .) CC TO 481 
ISTATI^, ISTCMT)=J(2'. »JkAM) 

,n r 1 

4P1 J17-JI 17. J 

u-'.LL U4frx(ll, 1.J17.VV5) 

Jiv-Jd i, J'JAN') 

CALL lA''UX(l{,,,JL^,MN;ACn 

i STAT ( 4, I STC' T) = J( 2" , J\A.V) + ( 1 ) /MNAR I 

4>C^ !SI^T(8,l2TCf'iT)=J( 25,J\AM) 

1 :• r.A r { .-s , I s rcNT ) = j ( 1 6 , J''am ) 

hO -;-^'A n / , ’ cLMPL:Trn\ cf job'iIa,* icec tij'e*/ 

* ''khSF'gT TIME.ESTr'ATCO MM PFP I UDS .T ARSE 

<,r ri;-L, actual*/ * process imo periods follow/. 

! .( .<, In ) ) 

J( 16, J‘i A'*) =c 
JC', jiA.n = 

I = 1 C - C ( 5 , I ) 

CALL tiLS(3,JMAW) 

J27-J(27, J- A") 

CALL U:;MX(7,6, J27,'1PRF) 
i f ( ID ... ) 4?';': ,4a'*',^S3 
4; ,1 .. M.L ’ACk. ( ■ , ;2 7 ♦ ■ , 2 3 3 ) 

J{.,/,J lA'' )=J?7 


o' « 


Q^AlJXy; 
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TU h5 7 

4 b > eel'll I «U F 

■.>i:b PEX VilILL iOW C<^LL LLS FOR COMPLETION OF JOBS 

; i ) 

CML LLS13,JNA-M 
f-n TO 4^.7 

A---; LtU = a;U/FLCAT( ivC^UG) 

>u.=iMjU/ri.nAi (NIC'S) 

,.,inO = FLOAT( NTuN) /FL'JAK N^'OOS^lCCMl ) 

: '’U = FLOAT ( f TAD /FLOAT (mTOTAL) 

By*'- F.-i-AK/,* COU,PUU»OV'U»SPU AR F * , A ( 4X , F 7 . 3 ) ) 

BCl M^iCi.^BCliU + CLU)/!.' . 

^'■L0=(O.>sr.ouU+FLL))/! ' . 

f. :i‘l'=(0,*f- GF04-SFU) /I ... 

1 1 . FASS( L ) 

r' M / = ( 9 . f'S I 7 T F MP ) >!^ . 1 

1 . 

I- C L >J = { A '! * A Cli U+ C F U ) / P 
A''.*A‘NJil-»PLU) /BN 
•.! rtO - ( A 'J'‘' A v'JU + C. vvl.J ) / B i'- 

a:. M.1-- < a’!>;-a spufSf'O ) /bn 
••C'C! 7 = ( A' .« A')S I 7 + IT'-yp ) / BN 
• ’ - 1' 'i 

C F " --a(' C'^ AV. IJTLS AkF* ,4( 3X,F8.4) 1 

i ;.<--ICL-</?- 
1 H [CLK-INi’VC>:^i ) 

■0<9 IL ru i, INi v):t5,;.L^. 

ll;TL( ri !FIX( i. • . .*tCUU) 
u.Tt. ( it r-io\) = if ix( 1 ;•■ • ,=^Af»uu) 

1UL(‘<, l i-i7) = 5FlX(l ■. ,«ARXU) 
iLTL( l’-n X) = lFl/(i:‘ . .X'ASPUi 
U.T i. ( i , I 'M V ) = 1 F I X ( i ■ , =:=ACS T Z 1 


ujtl ( : , iNi : + : 

) -■ i F I M 1 

' .X'BCUm 

IUIL( ■, !Ni ;4-i • 

•) = IFIX( i 

.L .X^BPUU) 

U. TL(t, r!'X+’ 

) = ir IX( 1 

.X'RB'aU) 

n ! 1 ( . , TN.: ' + : 

) = 1 F 1 M r 

''.<=BSPUI 

I'. ri. ( ' 1 1 ^ 1 - x+i 

1 - 1 H X ( 1 

. .*8CSIZ ) 

■■ 'Tit 

^ f , 
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SUBROUTINE NFMAL ( KEY t JOB t NSPACE ) 

C NFMAL IS THE NON FEEDBACK MEMORY ALLOCATOR 

C JOB IS THE NAME OF THE JOB FOR WHICH SPACE IS TO BE ALLOC 

GATED 

C NSPACe IS THE AMOUNT OF SPACE TO BE ALLOCATED 
C IF NSPACE.NE.O THEN NSPACE IS THE AMOUNT TO BE ALLOCATED 
C IF NSPACE. EQ.O THE AMOUNT IS CONTAINED IN THE J TABLE 
C IF KEY=0 THEN ALLOCATE MEMORY TO JOB 
C IF KEY =1 THEN ALLOCATE MEMORY TO ALL JOBS IN 
C rCfcC THAT ARE WAITING FOR MEMORY 
CCMMON/6LK7/J(27,64) 

CGMMON/BLKB/ ICLK 
INTEGER*2 ICLK 

COMMnN/BLKl2/IC6CSZ»ICCN,INl.IF£CSZ,IPCT,IPl, IP2,IGl,l 
CG2, 103, IRt IS, ITA.MlNBLKf MMCT,MMST,MTOTALfNI ,NIOS» 
CNMODS,NPCL,NPCS, NCPUS, IF6DBK, IRNI, IRN2, IRN3,IR 

LNA, IRN5, IRN6, IRN7, IRN8, IRN9, MMAPF,MMSPF 

C 

C0MM0N/8LK13/ RANAI 

CCMM0N/BLKl6/IbWCrR(24J ♦rCEC(5,40) , ICECS,ICPU( 10) , IPAS 
CS(20) , IFECS, IFEC(40,4) , IPROSI 16) , ISAVE(3,3) ,1VAL 

CQVdO ),MALC( 256,5) , MALC S ♦ MAS ( 24 ) , MAVL <12 8, 5 ) , M AVL 

CS,M0DNM(24) ,MTP1(24) ,NA<24) , NA A ( 24 ) , NAB , NAG , NA 

CML(4J),NBLK( 128 ) ,NFR ( 3 ) ,NJWM, NSCHED, NRLQ<4 

tv,24) ,NTP<24) ,NTR(24) ,NUCA(24) 

C 

lNTEGtR»2 IBWCTR, ICEC, 1 CEC S , I CPU , I PASS , I FECS , IF EC, I PRO 
OS, ISAVE,I VALOV, MALC,MALCS, MAS, MAVL,MAVLS, MOD 

CNMfMTPl ,NA ,rMA,NAB, NAG , N A ML , NBLK , NF8 , A JWM , NSCHED , 

C.NR£0,NTP,.NTR,NUCA 
INTEGGR«2 J,JGVFL 

DIMENSION ITKOFl 3,3) ,N1TK0F<3,3) ,L( 3) 
lNTEGrR«2 ITK0F,NTK0F,L 
CALL UNMIXU,C, IS, IWRTA) 

WRITE(6^,152J) ICLK,NJWM,NFB< I ) , I PASS ( 10) 

152.,- FOxMAT(« IN NF MAL-T I ME , NJ WM » NFB , CAMT . FREE ARE’, 4< IX, I 
C4) ) 

MQCSIZ=MTOTAL/NMODS 
IF(KtY) 1210,1350, 1010 
Ul.; KX = ICECS 
i:i2 IF(KX) 463,460,1315 
1.15 J0B=ICEC<2,KX) 

J27=J <27, JOB) 

CALL UNMIX< 5,4, J27, IND) 

1:2. IFUNC) 1053,1325,105: 
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1025 

1-27 

1050 

1 

2 
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6 

H 

Il- 

ls 

21 

21 
z2 
3 . 

3i 

3 5 

40 

43 

5 ..' 

55 

6 - 

65 


KX=ICEC ( 5,KX) 

FD^'MATC NFMAL NOW SCANS ICEC FOR NEXT JOB WAITING MEM 
CORY* ) 

GC TO 1012 
K1=0 

JJJ=MAVLS 
DO I NC=l,3 
L ( NC ) =0 
CO 1 MC=lt3 
ITK0F(NCtMC)=0 
CONTINUE 
1 = 1 

IF{NSPACE>2,4,2 
MMS=NSPACE 
GO TO 1C 
J22=J(22»J0B) 

CALL UNMIX(7,6, J22, IND7) 

IF(IND7) 8,8,6 

CALL OVFLMGIO, J08,7, IVALOVI 1) ,1) 

MM3=IVAL0V(1) 

GC TO 10 
J1 /=J1 17, JOB ) 

CALL UNMIX(ll,C,J17,MMSI 
IF(NFB(m 15,15,30 
IF ( IWRTA.EQ.O) GO TO 21 
W81TE(6,2CJ JOB, I 

FORMAT! • NFMAL CANNOT FILL MEMORY REQUEST FOR JOB', 14, 
C • ON PASS NO',m 

f- 

IFINFBUn 460,460,22 
IF(KEY) 46 j, 460, 1025 
DC 31 NC=l,3 
DC 31 MC=1,3 
nTKUF (NC ,MC) =v. 

IFINFB(n-9) 4C,35,35 
KTC-MP1 = NFB( I ) 

KNO=IFIXI FLOAT (K TEMPI )/2. 718 3+. 9 9999) 

GO TO 80 

1F(NFB( I )~8) 50,45,45 
KN0 = 4 
GO TO 80 

lF(NFB(I)-5) 60,55,55 

KN0=3 

GC TO 83 

IF(MFB(n-3) 7'»65,65 
KN0 = 2 
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GO TO 80 
70 KN0=1 

80 K=1 

81 FORMAT(« NFMAL WILL NOW TRY TO FIND A SLOCK FOR JOBS! 
C3,' 

I8ST1=0 

IBST2=0 

65 IF(MAVL( JJJ,5)“MMS) 12C ,2000# 2000 

90 IF(IBSTl) 100,95,100 

95 IBST1=MAVL( JJJ,5) 

I6ST2=JJJ 

DO 96 NC=l,3 
DO 96 MC=1,3 

96 ITK0F(NC,MCJ=NTK0F<NC,HC) 

1j; IF( IBSTl-MAVLI JJJ,5) ) 117,117,105 

105 CO 1C7 NC=1,3 

DC 137 MC=1,3 

1’'7 ITK0F(NC,MC)=NTK0F(NC,MC) 

IFIK-KNO) 115,115,110 
110 LU)=JJJ 

GO TO 155 

115 IBST1=MAVH JJJ,5) 

IBST2=JJJ 

117 CC 118 NC=1,3 

DC 118 MC’^ltS 
lio NTK0F(NC,MC)=0 

JJJ = MAVL(JJJ,1) 

IF(JJJ) 125,125,121 

121 lF(I-2) 124,123,122 

122 IF( JJJ,(=Q.L(2) ) GO TO 120 

123 1F( JJJ.EO.LUn GO TO 120 

126 K=K+l 

GO TO 65 

125 IFdtiSTU 130,15,130 

lie L(I)=IBST2 

JJJ=IBST2 
GO TO 155 
2:00 CONTINUE 

2 j ^1 FORMAT! • NFMAL , 200 0 , ST ART , L ENGTH , JOB , I • , 4 ( 3X , I 6 ) ) 

2JvZ IF(I-2) 90,3001,2005 

2:^5 lF(MAVL(JJJ,3I-MAVL(L(i),3n 2:10,2020,2020 
2JlJ IFIMAVLILU) ,3)-MAVL(L( 2) ,3) ) 203'^ , 2015 , 20 1 5 
2 '.. 15 IFIMAVL UJJ,3)-MAVL{L(2),3) ) 20 35 , 2 040 , 2040 
2L2j IFIMAVH JJJ,3I-MAVL(L(2),3) ) 2065,2025,2025 
2.25 IF(MAVL(L( 1) ,3)-MAVL(L(2) ,3) » 2050,2055,2355 
2.3j IRX=L(2) 
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IR'<T = 2 
iyX=L( 1 » 

I^XT=1 
GC TC 2037 
2C35 IRX = L(U 
I«KT=1 
IWX=U2) 

IMXT=2 

2v37 IL<=JJJ 
IL <T = 3 
GC TO 2060 
2f4c IRX=L(1) 

IR <T = 1 
ILX=L(2) 

1LXT=2 
GC TO 2CA7 
2:46 IR.< = L(2) 

I RKT=2 
ILX^L( i) 

IL<T = 1 

2.-A7 iNXsJJJ 

IN<T=r3 

GG TO 2060 
2J5j ILX=L(1) 

[LXT=I 
Il^iX = L(2) 

I^XT=2 
r,r TO 2057 
2.55 ILX=L(2) 

[LXT=2 
If^< = Ul) 

If^XT = l 

2 57 IRX=JJJ 

iRxr=3 

OL TO 2063 

' :0l IF ( MAVL( JJ J, 3 )-KAVL( U 11,3)) 3005,3010,3010 
3: ,5 IRX=L(l) 

IRXT^I 
lf‘X = JJJ 
l?OXT = 2 
GC TC 2360 

3 IRX^JJJ 
IRXT^2 
IMX-L(l) 
l^XT=l 

? IRRtF=KAVU I R X , 3 ) +MA VL U RX , 5 ) 



2065 IMREF=MAVL( I MX 1 3 J+MAVL U MX ♦ 5 ) 

IF( IMREF/M00SIZ-( IRREF-MMS)/MODSIZ) 2075 f 2C70 t 2070 
2070 IMR6F=< ( IRREF-MMS)/M0DSIZ)*M00SIZ 
2075 IF(MAVU IMX,3>-IMREF+MMS) 2077,2077,117 
2077 IF(IMX-IRX^ 2080,2007,2080 

208C 1FUMREF-(MAVL( IMX,3)+MAVU IMX,5) ) > 2085,2090,2090 
2065 NTKOF(IMXT,l)=l 

NTKOF( IMXT,2)=1MREF 

NTK0F( IMXT,3)=MAVmMX ,3)+MAVL(IMX,5)-IMREF 
60 TG 2090 

2C«7 FFUMREF-IRREF + MMS) 2008,2090,2090 
2088 NTK0F( IMXT,1 )=1 

NTK0F(IMXT,2)=IHREF 
NTKOFt IMXT,3) = IRREF-MMS*-I MREF 
2090 IF(I-2) 2140,2140,2095 

2095 ILREF=MAVL( ILX,3)*MAVL( ILX,5) 

IF( lLREF/MODSrZ-(lMREF-MMS)/MDOSrZI 2105,2100,2100 
2i:»' 1LREF = ( ( IMREF-MMS)/MODSIZ)*MODSIZ 
2105 IF(MAVL( RX, 3)-ILREF+«MS) 2110,2110,117 
21iv IFULX-IMX) 2115,2125,2115 

2115 IF( RREF-(MAVL( RX,3l+MAVLULX,5n > 2120,2140,2140 
2120 NTKQF( RXT,3)=MAVL( RX,3)+MAVL( ILX,5)-RREF 
CC TO 2135 

2125 IF( RREF-IMREF+MMS) 2130,2140,2140 
2130 NTKGF( rLXT,3) = IMR£F-MMS-RREF 
2135 MTK0F( RXT,1) = 1 

NTKOF( ILXT,2) = RREF 
2140 GO TG 90 
155 J27=J(27, JOB) 

CALL UNMIX< 11, 10,J27, IND) 

IF(tNO) 220,220,160 
160 lFd-3) 162,208,208 

162 MOCNMCI ) = (MAVL(Lm,3)+MAVL(L(I ) , 5 ) -MMS- 1 TKOF I 1,3) ) /MO 
CDSIZ 

IF(MODNM(in 192,192,164 

164 1F<M0UNM( I )«MaOSIZ-MMS-MAVL(L( I ) ,3 ) ) 192,168,168 
168 IF(I-l) 169,169,1681 

1681 IF(MAVL(L( I),3)-MAVL(LU-l) ,3) ) 169,1682,1682 
lo62 IF( ( MAVL( L ( I-l) , 3 ) +MMS ) /MOOS! Z- t MOONM ( I ) *MODS I Z-MMS ) /M 
C005IZ) 1683,192,192 

C 

1683 IF( (MAVL(L ( I-l ) , 3) +MAVL R ( I'l ) , 5 ) ) /M0D5 1 Z-MOONM U ) - ( MM 
CS/MOOSIZ ♦!)) 169,169,1684 

0 

1664 ITKOFU-l, 1)=1 

ITKOF ( I-l, 2)=(M0DNM( I) ~ ( MMS/MOOS I Z+ 1) ) «M0DS1Z 
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ITKOF( I-L, 3) =M4VU L n-l)»3)+MAVL(L(I-l) »5)-ITK0F( I-l»2 
C ) 

X69 L(r + n = L(I) 

IF( WAVLtU I I t31+«AVL(L( II , 5 )-MMS- 1 TKOF (I ,3)-MODNy< I ) 
CGLV.IZ) 172.172.17C 

C 

17-: ITKOFU + l.U=l 

ITKOFC I + l»2)=MODNM( I )*MODSIZ 

ITKOFI I + l. 3)=M4VL(L( I ) .3M-MAVL (L( I ) » 5 ) -MMS- 1 TKOF ( I .3) 

C -MODNM( IKMOOSIZ 

C 

172 i=I+l 

IF(I-3) 178.208.20a 

176 f^CONMII ) = (MQ0NM(I-1)*M00SIZ“MMS)/MGDSIZ 
IF{MOONM(in 19 2, 192.160 

13. IF(MODNMl I )«MOOSIZ-MMS-MAVUU n .31) 192.182.182 

162 UM-1)=L(I) 

IF C MCUNMU -1 1 *HOOS I Z-KM S-MODNM( I )*MODSIZ I 208.208, 190 
19: ITKOF( I + l, U = l 

1TkOF( I + l. 2)=MOONM( I )*/^ODSIZ 

I TKOF ( I + l , 3) =^'aDNM( I-l ) *MOOS I Z-MHS-MOONM ( I ) *MODSIZ 
GC TO 208 
192 I-I+l 

NF6( I )=r^lF8( l)-( I-l) 

19t. jjj=f:avls 
.;c rn i97 

176 JJJ=MAVL( JJJ.l) 

197 IFIJJJ.LE.") GO TCJ 15 
If I 1-2) 198.199,198 
196 IF ( JJJ.EO.LI 2) ) GO TO 196 
199 IFIJJJ.eO.Lf 1) ) CU TO 196 

or: TO 1 "' 

2 8 I = L 

KF <=: 

21.. If (ITKQFn.l)) 212, 22), 212 

212 KKX=KKX+1 

If (KKX-128) 214.21A,2l'3 

213 WRITE(6.151C) 

r51i,) Fr.9MAT(* NO MOKE EMPTIES IN MAVLM 
GC TO 963 

219 IF(NAVL(KKX,5) ) 212.216,212 

2^6 lF(MAVL(Lm,l) + n 218,219,218 

218 wavl(MAVL(L(I),1),2)=KKX 

219 ^’AVL( KKX, I ) =MAVL ( UI ) , 1) 

VAVLILI I ) . 1I=KKX 
M.WUKKX,2)=L( I ) 
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«AVL(KKX,3)=ITK0F( 1,2) 

«AVL(KKX,4)=MAVL<Ln ) ,4) 

MAVLCKKX,5) = ITK0FU .3) 

MAVUU I) ,5)=MAVLU( I) t5)-ITK0Fn,3) 

NF6(l)=NFB(l)+l 

220 IF{I.Ne.l) GO TO 221 

IPASS(lU*IPASSni)-l 

221 INDX8=L(I) 

INUX8=L(I) 

WRITE (6, 1530) JOB , MMS , I NOXB , MA VL ( I NDXB , 3 ) , MAVL ( 1NDXB,5 
0,1 

l5Cw FORMAT! • NFMAL TO MASGN • , 6 ( 3X , 1 5 ) ) 

44u CALL MASGNd, JOB, INOXB,MMS) 

445 IF(L(3)) 450,455,450 

450 1=1+1 

IFU-3) 210,210,455 
455 J27=J(27,J06) 

CALL PACKO, J27,0,16) 

J<27, J0B)=J27 
IF(KEY) 1025,460,1025 

460 WRI rei6, 1550) ICLK,NJWM,NFB( 1) , IPASSIIO) 

155J FORMAT! • OUT NFMAL-T I ME ,N JWM, NFB &AMT. FREE ARE*,411X, 
CI4) ) 

IF! IWRTA.EQ.O) GO TO 495 
WR1TF!6,465) 

465 FORMAT! • MAVL FOLLOWS',/) 

466 F0RMAT(6( 3X, 15) ) 

467 FORMAT!' MALC FOLLOWS',/) 

KKK=MAVLS 

470 IFIKKK) 480,480,475 

475 txiRITE!6,466) KKK , ( M A VL ! KKK , JX ) , JX= 1 , 5 ) 

KKK=MAVL(KKK,1) 

GO TO 470 

480 WRIT£!6,467) 

KKK=MALCS 

485 IF!KKK) 495,495,490 

49j hRITE!6,466) KKK , ! MALC ! KKK , J X ) , JX= I , 5 ) 

KKK=MALC!KKK,1) 

GO TO 485 
RETURN 
ENU 


495 
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SUfJRCUTINE MAPREF 
C0FMON/BLK7/J( 27,64) 

CQFM0N/BLK8/ ICLK 
INTEGER*2 ICLK 

CGFM0N/BLK12/ICECSZ,IC0N, IN1,IFECSZ, IPCTtIPl, IP2. IQlf I 
CQ2,103, IR, IS, ITA,MINBLK,MKCT,WMST,MTOTAL,NI ,NIOS, 

CNN«DDS,NPCL,NPCS, NCPUS, I FED8K, IRNl, IRN2, IRN3, IR 

CN4, IRN5,IRN6,IRN7,IRN6,IRN9, MMAPF,MMSPF 

C 

CQ.vMON/QLKl3/RP.')l,RP02,RP0 3,RP04,RP05,RP06,RP07,RP0a,R 
CPC'>, RPlO.RPll 

C 

CO^MON/OLK16/IBWCTR( 24) , ICEC ( 5 , 40 ) » ICFCS , I C PU ( 10 ) , I PAS 
CS( ^0) , IFECS, IFfcC(40,4) ,IPROS( 16) , ISAVEI 3,3) , IVAL 

COV( 1>’) ,HALC( 256,5) , MALCS , MAS ( 24) , MAVLI 1 28, 5 > , MA VL 

CS,M0DNM(24),MTP1(24) ,NA(24) , NAA ( 24 ) , NAB, NAG , NA 

CML(4C),NBLKa2 8),NFBl3) ,NJWM,NSCHED, NRE0(4 

c. ,44) ,NTP(24),NTR|24) ,NUCA(24) 

C 

INTEGER«2 IBWCTR, ICEC , ICECS , I CPU, I PASS , I FECS , I FEC, I PRO 
CS, ISAVE, I VALOV,MALC,MALCS,MAS,MAVL,MAVLS,MOD 

CNK,MTP1 ,NA,NAA,NA6, NAG , N AML , NBLK , NF B , N J WM , NSCHEC , 

CNR'-U,NTP,NTR,NUCA 
INTEG£R*2 J,JOVFL 
UI^ENSION L(3) 

C TO SET UP ISAVe LIST OF JOBS IN ORDER OF PREFERENCE 
C JOBS TO BE ORDERED PASSED IN ARRAY NAML(K) 

C PR'jGR^M FINDS JOBS TO ALLOCATE 

DIMENSION 1TK0F(3,3) ,NTKOF (3,3) ,KPTMR( 3,2) 

INTEGER«2 MODS I Z , I RRE F , I MRE F , I LR EF , I RX , I RX T , I MX , IMXT , I 
CLX, ILXT, ITKOF,NTKUF,KPTMR,MODST,MODED, L 

c 

CALL UNM1X(1,0,IS,IWRTA) 

WR I TE (6, 158C ) I CLK , N J k^M , NF B ( 1 ) , IPASS( IP ) 

15B:. FORMAT!' 1 N MAP REF-T 1 ME ,N J WM , NFB , D AMT . FREE ARE',4(1X,I 
C4 ) ) 

M04SIZ=MT0TAL/NM0DS 
IX = . 

DC 1 3 KX=1 , ICECSZ 
NAML ( KX ) =0 
JN'\M = IC£C ( 2,KX) 

IFUNAM) 3,10,3 
3 J27=J(27,JNAM) 

CALL UNMIX(5,4, J27, IND) 

IF(IND) 5,1C,5 
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5 IX^IX^I 

NAML( IX)=JNAM 
10 CONTINUE 
NjMM=tX 
NJPW=IX 

IF(NJPM) 12,12*15 

12 WRIT6(6,13) 

13 FORMAT! • NO JOBS WAITING MEMORY AT THIS CALL TO MAPREF 

C* ) 

RETURN 

15 CO 20 KX=l,l28 

NBLK(KX)=0 
20 CONTINUE 

KX=MAVLS 
IF(KX) 25,25,35 
25 WRITE{6,3G) 

3C FORMAT! ♦ NO AVAILABLE BLOCKS IN MAVL* > 

RETURN 
35 IX*0 

A. . IX=IX41 
55 NBLK!IX>=KX 

KX=MAVL(KX,l) 

IFIKX) 60,60,40 
60 NFB!U = IX 

NBPF=IX 

65 UC 7v KX=1,3 

DC 68 IX=1,2 
ISAVEIKX, IX)=0 
ITKOF!KX,IX)=0 
KPTMR!KX,IX)=0 
68 CONTINUE 

ISAVE (KX,3 )=0 
ITKOF!KX,3)=0 
7' CONTINUE 

K = C 

b' K = K + 1 

IF(K-NJPW) 85,85,180 * 

85 IF!NAML!K>) 80,80,90 

90 l=C 

75 1=1+1 

J17=J! 17,NAML!K)) 

CALL UNMIX! 11 ,0, J17,MMS) 

M=C 

95 DC 97 KX=l,3 

DO 97 IX=1,3 
97 NTKOF !KX, IX)=0 
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98 M=N+l 

IF(M-NBPF) 105, 135, ICC 
ICJ IF(I-l) 00,80,180 
K5 IF(t^BLK(Mn 98,90,110 

C set IF JOB WILL FIT INTO PRESENT BLOCK IN NBLK(M) 
lU KTtMPl=MAVL(NBLK(M) ,5) 

IFIKTEMPI.LE.O) GO TO 98 
USF = FLOATl ^■MS) /FLOATIKTEMPI ) 

1F(DSM-1.) 2000,2030,93 
2300 JJJ=NBLK(M) 

U L) = 1SAVE(1,2I 
LI2)=ISAVE(2,2) 

L( 3) =ISAVe (3,2) 

2}vl FORMAT!* MAPREF 2 3C 1 ' , 5 I AX , 1 4 ) ) 

2002 IF(I-2) 115,3001,2005 

2:s.5 IF(MAVL( JJJ,3)-MAVL(L(l) ,3)) 2010,2020,2020 
2 j1j IF(MAVL{LU) ,3)-MAVULI2) ,3) > 2030,2015,2015 
2.15 I F ( maVL ( J J J , 3 ) -MAVL ( L ( 2 ) , 3 ) ) 2035,2040, 2043 
2:^v IF(MAVL{JJJ,3)-MAVL(L(2),3)) 2045,2025,2025 
2^25 IF('^AVL(L(l) ,3)-MAVHLI2),3)) 2050,2055,2355 
2033 IRX=L(2) 

IRXT=2 
IMX^Lt 1) 
ipy,r = i 
CO TO 2037 
2:35 IRX=L(1) 

IRXT=1 

1M^=L(2) 

IPXT=2 

2.37 ILK=JJJ 
ILXT-3 
GC TO 2060 
2-^. IKX=L(1) 

I P X T = 1 
ILX-L(2) 

ILXT=2 
GC TO 2347 
2.45 IftX = U2) 

IRXT=2 
ILX^U I) 

ILXT=l 

23-^7 I^'X = JJJ 

IMXT=3 

GO T'?. 2 oar 

2,5j IL\=L(1) 

ILXT=1 
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IMX=U2I 
IMXT=2 
liG TO 2057 
2C55 ILX=L(2) 

ILXT=2 

IMX=L(1) 

IMXT=1 

2C57 iRX=JJJ 
IRXT=3 
GO TO 2060 

30ol IFtMAVU JJJ»3)-MAVL(L( 1) t3) > 3005 , 3010 t 3010 
3J05 IRX=L(1) 

IRXT-l 
IMX=JJJ 
IMXT=2 
CO TO 2060 
3>:iv‘ IRX = JJJ . 

1RXT=2 
IMX=L( U 
IMXT=l 
GO TO 2060 

2C6w IRREF-MAVUIRX,3) + MAVL( IRX,5) 

2.65 IMREF=MAVL r IMX,3)4MAVL(IMX,5) 

IF( IMREF/MOOSIZ“( 1RREF-MMS)/M00SIZ) 2075,2070.2070 
2w7j If'REF=( ( IRREF-MMS) /MOOSIZ)»MOOSIZ 
275 IF(MAVL( IMX,3)-IMREF4«MS) 2077,2077,95 
2v77 IF(IHX-IRX) 2C80,2''87,2 '80 

2080 lFnM«EF-(«AVL( I«X,3)4-MAVLnMX,5) ) ) 2085,2090.2090 
2085 NTKOFt IMXT,i )=l 

NTkOF( IMXT,2)=sIMRcF 

NTK0F( IMXT,3»=MAVL( IMX,3»4MAVL( IMX,5)-IMREF 
GC TO 2090 

2J87 IF( rMREF-iRREF+MMS) 2088,2090,2090 
zona NTKOF( IMXT,l)=l 

NTkOF( IMXT,2)=IMREF 
ImTKOF ( IHXT,3) = IRREF-K(«S-IMREF 
2; 90 IF(I-2) 21^0, 21A0, 2095 

2o95 ILREF=MAVLnLX,3)+MAVL(ILX,5) 

IF{ lLREF/MODSIZ-( IMREF“I^MS)/M00SIZ) 2105,2100,2100 
21CC ILRFF=( ( IMREF-HMS)/M0DSIZ) ♦N!ODSIZ 
21.5 IF(MAVL( ILX,3I-ILREF+RMS) 2110,2110,95 
2Uo IF(ILX-IMX» 2115,2125,2115 

2115 1F( ILREF-(MAVL(ILX, 3)4MAVU ILX,5) ) ) 2120,21A0,21A0 

2120 *'<TK0F(1LXT,3»=MAVU ILX,3) + MAVLI ILX,5)-ILREF 
GC TO 2135 

2125 IF< ILREF-IMREF4MMS) 2 130 , 2 140 , 2 14 ) 
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213.- NTK0FIILXT,3) = I r^REF-MMS-ILReF 
2135 NTi<OFnLXT,l) = l 

NTKOF( ILXT,2)=ILREF 
214j CC^VTINUE 
GO TO 115 

C JUb WILL FIT INTO MEMORY BLOCK 

115 MGt-ST=( MAVL(N6LK(M) t 3J+MAVL (NBLK(M) ,5 )“MMS-NTKOF( 1,3)) 
C/MODSIZ+1 

MOl)ED=( MAVUNBLK(M) , 3 ) +MAVU NBLK ( M ) ,5)-NTK0F( 1,3)-1)/M 

corsiz^-i 

Jli=J( U,NAML(K) ) 

CALL UNMIX ( iC»C , Jl l,MNAR) 

MUIJ=G 

IF lMODED-MODST-1) 130,125,120 
12- ISr=MQDST+l 
IEO=MOOFO-1 
on 122 LX=IST,I£0 
124 ML^! = MUD+^4AA( LX) 

12p IL‘-'S = MAVL(NBLK(M) ,3)+MAVL(NBLK<M) ,5)-(M0DED-1 )*MODSIZ 

NiUb^MUO+INAAIMODEDI^ILMSl/MASIMOCEO) 

13.- IF (MAVl (M6LKIM) , 3) +MAVL (NBLK ( M ) , 5 ) -MODS T*MODS I Z ) 

C 131,131,132 

C 

131 IF^-S=MAVL(NBLK(M),5) 

GO TO 133 

134 IF ■iS = MQDST«MODSIZ-MAVL(NBLK(‘^) ,3) 

133 MUL=MUDf (NAA(MUDSr)*IFMS)/MAS(MODST) 

135 rEMP = FLQAT(M.MSPF)<'DSM 
DU^=FL0AT( MUD) /FLOAT (MNAR ) 

1F(DUM-1.) 1AC,1A3,145 

14., TEMP2=FL0AT(MMAPF)*DUM 
GO TO 153 

145 TFmp 2=FL0AT(MMAPF ) /OUM 
i5. ITt.MP = IFI X (TEMP + TeMP2+.5) 

IF ( I SAVE( I , 1 ) ) 165,165,162 
162 Jl =JI10,NAML(K)) 

CALL UNMIX( 15,7,J10,KTEMP1 ) 

Jl >J( 1C, I SAVE { I ,l ) ) 

call UNMIX( 15,7,J1x^,KTEMP2) 

IF( ITEMP+IFIX( (KTEMPI-KTEMP2)*RP02)-1SAVE( 1,3) ) 95,95, 
C16 5 

165 KPT|VR(I,1)=K 

iSAVF (1,1) =NAML (K) 

168 KPrMK(I,2)=M 

ISAVE(I,2)=NBLK(M) 

IS Wr-(I ,3) -I TEMP 
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DO 172 KK=l,3 

17'J ITKOF (KX, 1 >=NTKOFJKX» 1 ) 

ITKOF(KX,2»«NTKOF(KX,2) 

ITKOF(KX*3 )=NTKOFIKX,3) 

172 CONTINUE 
GO TO 95 

16l IF< 1SAVE( I t2) > 185,210»185 

185 J17 = J(17,ISAVE( l,in 

. CALL UNMIX(11,0»J17,MMS) 
j27=j(27,isAvea»in 
CALL UNMIX(11,1C«J27,IND) 

IF(IND) 2A0,190»24O 

190 IF(MAVL( ISAVEU f2l 195fl95t200 

195 IF(KPTMR( I »2)-NBPF ) 196,197»197 

196 NOLK(KPTMR( 1,2) )=NBLK(NBPF) 

197 N6LK(NBPF>=0 
N6PF=N6PF-1 

ZZj IF<KPTMR( I ,1)-NJPW) 201,202,202 
2 1 NAHLlKPTMRd,!) )=NAML(NJPW) 

2L2 NAPL(NJPw)=0 
NJPW=NJPW-1 
JIN0X=ISAVE(1,1) 

MlNDX=ISAVE<lt2) 

IF( IWRTA.EQ.O) GO TO 2:i7 

WRITE (6, 205) J I NDX , MMS , MI NOX , MAVL ( Ml NDX , 3 ) ,MAVL<MINOX, 
C5) 

2“5 FORMATl* MAPREF 205 CALLS MASGN • , 5 1 4X , 14) ) 

2J7 CALL MASGN( 1,JIN0X,MIN0X,MMS) 

J(23,JlNDX) = ISAVEa,3) 

NJWM=NJWM-1 
GC TO 65 

15Cv» FORMAT!' TIME = ',I6,* MAPREF FINOS NO 8LK FOR JOB', 14, » 
C PASS=',I3> 

21* IF( ISAVE! 1,1) ) 400,400,211 

211 IF(I~1) 400,400,212 

212 WK ITE(6, I50J) I CLK ,NAML (K ) , I 

215 IFtKPTMRlI ,1)-NJPW) 216,217,217 

216 NAML(KPTMR(1,1))=NAMLINJPW) 

217 NAML(NJPW)=C 
NJPW=NJPW-1 
CO 220 KX=1,3 

IFIKPTMR IKX, 2) ) 218,220,21 8 
2,ifc NBLKIKPTMR(KX,2) )*ISAVE(KX,2) 

22L CONTINUE 
GO TO 65 

24C UI) = ISAVE(I,2) 
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7AZ 

2A5 

2b'u 


251 

252 


253 


254 


2 5 3 

256 
25 tf 


26u 

26.5 


266 


2 7. 


2 75 


265 

2T. 


MOr :NM( l ) = ( MAVL( L( I ) ,3)+MAVHL( I ) , 5 )-MMS- I TKOF ( I , 3) )/H»0 
CCSIZ 

IF(I-2) 260,242,303 
Lf l) = ISAVe{l,2) 

IF(MAVL(L( 2) , 3 >-MAVL ( L( 1 ) ♦ 3) >260,250,250 
1F( (MAVL(Ul) ,3)+MMS)/F!ODSI2-(MODNM{ I ) «MGD S I Z-MHS ) /MOD 
CSI/I 251,255,255 

C 

IF(MAVL(U I ) ,3>-M0DNM{ I )«MODS IZ+MMS) 252,252,255 
IF{ (MAVL(L(1),3)+MAVL{L(1) ,5) ) /MOOS I Z- ( MQDNM ( I)*MOCSIZ 
C-MMS>/MOD SIZ) 260,253,253 

L 

IF(MAVL(L( 1) ,3>+MAVL(L( L) ,5> -(( MQDNM U ) ♦MOOS 1 Z-MM S ) /M 
COCSIZ) «MODSIZ> 265,265,254 

C 

ITKOFU, l)=l 

I TKOFi 1 ,2> = ( (MOONNM I ) *MOOSI Z-MMS ) /MODS I Z ) *MODS IZ 
I TKOF ( 1 , 3) =MAVL (L( I ) ,3)+MAVL(L( 1 ) ,5 J-ITKOF (1,2) 

GC ro 265 
GO 258 KX=1,3 

IF( ISAVt(KX,2) ) 256,258,256 
NHLK(KPTMR(KX,2) )=•' 

CONTINUE 
KsrKOTMRd, 1) 

GC ?n 75 

IF ( vIAVL (U I ) ,3)-M00NM( I ) *MODS I Z+MMS ) 26 5,2 65,255 
IFC«^ODNM( I >’«=«0USIZ-MAVUL(I ).3)-MAVL(Ln>,5)+MMS + ITKnF 
C(I»3)> 266, 270, ?7-: 

ITKiiF(I+l,l)=l 

ITK.IFI I + lt2)=M0CNM( I )*MODSIZ 

I TMJF ( T + 1, 3) =MAVL ( L ( I ) ,3) + .«AVL (L ( I ) , 5 ) -MMS-I TKOF ( I , 3 )- 
CMCluNM(I)« Monsiz 

i, 

I SAVE! I + l, 1) = ISAV6( I ,i J 
ISA7E{I+1,2)=ISAVE( I ,2) 

I SAVE ( I +2, 3) =I SAVE I I ,3 ) 

KPTMR ( I+l, 1 )=kPTMR( 1,1) 

KPT 1R{ I+l , 2) =KPTMR( 1,2) 

1 = 1 + 1 

IF(I-3) 275, 300,3 '3 

PODNMtl ) =( MODNM( I-l ) *MODS I Z-MV S) /MQOS I Z 
IF(.^AVL( I SAVE! I ,2) ,3 )-MOONM(I ) «MOOS IZ+MMS ) 285,285,2 55 
1F( I )«MOOSI Z-MOONM( I -> I ) ♦MOOS I Z+MMS ) 290,295,295 

ITkOF( I+ l, l)=l 

ITK I- (I+l, 2) =MODNM { I )«MODSrZ 
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295 


3o:> 

305 

310 

32C 

322 

323 

324 


325 

330 

332 

333 

334 


341 

345 


35>. 

355 

357 

360 

37 c 

375 

376 


ITK0F( 1 + 1, SJsMODNMU-D^'MOOSlZ-MHS-MOONMU )#MODSIZ 

iSAven+i,i)=isAVEn ,1) 

ISAVE( 1+1,2) =I SAVE (I ,2) 

ISAVE( I+1,3)=ISAVE(I ,3) 

KPTMftU + l, l)=KPTMR( I ,1) 

KPTMR( I + l,2)=KPTMRn ,2) 

DO 31C KX=l,3 

IF(KPTMR(KX,2) ) 305,310,305 
N8LK(KPTMR(KX,2) )=I SAVE(KX,2) 

CGtVTINUE 

I=J 

I = I + l 

IF( I-3» 325, 325,322 
IF(KPTMR{l,l)-NJPW) 323,324,324 
NAML(KPTMR(l,l) )=NAML(NJPW) 

NAML(NJPW)=0 
NJPW=NJPW-i 
GC TO 65 
KKX=v 

IF( ITKOF( 1 , 1 n 330,370,330 
KKX=KKX+1 

IF(KKX-128) 334,334,332 
WRITE(6,333) 

FG-<MAT(* NO MORE EMPTIES IN MAVL') 

RETURN 

IF(MAVL(KKX,5) ) 330,335,330 
MAVLIKKX,! )=MAVL( ISAVEC 1,2) ,1 ) 

IF(MAVL(KKX,1) ) 345,345,340 
MAVLIMAVUKKX, n ,2)=KKX 
MAVU ISAVEI I ,2) ,l)=KKX 
MAVLIKKX, 2)=ISAVEU ,2) 

MAVLIKKX, 3)=ITK0F( 1,2) 
MAVLIKKX,4)=MAVL(ISAVEU,2),4) 

MAVLlKKX,5)sITKCFI 1,3) 

MAVL I I SAVE! 1,2) , 5 ) =MAVL I! S AVE 1 1 , 2 ) , 5 ) -I TKOFI 1,3) 

NFI3I l)=NFBm+l 

IX=NBPF+1 

1FUX-12B) 360,360,355 
WRlTt(6,357) 

FORMAT! • NO MORE EMPTIES IN NBLKM 
RETURN 

NDLKI IX)=KKX 
NBPF=NBPF+1 

IFIMAVLI ISAVei I ,2) ♦ 5 )-MMS) 375,375,380 
IFIKPTMRII ,2)-NBPF ) 376,378,378 
NBLKIKPTMRI I ,2) )=N8LK(NBPF) 
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Oe 377 KKK=l»3 

377 IF (NBPF.EQ.KPTMR(KKK,2) ) KPTMR ( KKK , 2 ) =KPTMR( I , 2 > 

376 NBLK(NBPF)=0 
NBMF=NBPF-1 

38C IMI-n 390,385,390 

385 J( 23, IS4VEI 1, L) )=ISAVE( 1,3) 

NJWM=NJWM-l 
39o jr'jox=isAven ,11 
Mf>lDX = ISAV^( 1,2) 

IF(IWRTA.EQ.O) GO TO 397 

WRITE (6, 395) J I NDX, MMS , MI NOX, MA VL ( MI NDX , 3 ) ,MAVL( MINDX, 
C5 ) , I 

'395 FCRMATC MAPREF 395 CALLS MASGN • ♦ 6 t 3X , 1 4 ) ) 

397 CALL MASGN(1,JINDX, MINDX, MMS) 

GO TO 320 

4'. WF ITE(6,405) ICLK,NJWM,NFB(1),IPASS(1C) 

4u5 FORMAT! • OUT MAPREF-T I ME ,N JWM, NFB CAMT. FREE ARESAIIX 
0,14)) 

IF! IWRTA.EO.O) GO TO 432 
WRIT6!6t4l 3) 

41. FCKMAT!' MAVL FOLLOWS*,//) 

415 F ORMAT! 6! 3X, I 5) ) 

KKK=MAVLS 

418 IF!KKK) 422,422,420 

420 WRITE!6,415) KKK , ! MAVL ( KKK , JX ) , J X= I , 5 ) 

KKKsMAVL!KKK, 1) 

GO TO 418 

422 WPITEI6,425) 

425 FORMAT!* MALC FOLLOWS',//) 

KKK=MALCS 

4i7 IMKKK) 432,432,430 

43. W>ITE!6,415) KKK,!MALCIKKK,JX> ,JX=1,5) 

KKK = MALC ( KKK , 1 ) 

GO TO 427 
432 R' TURN 
E iO 
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SUBROUT I N€ MASGN( K6 Y, INOX J, I NCXB , I SPACE ) 

C MASGN ASSIGNS MEMORY TO JOBS AFTER MEMORY PREFERENCE FACT 
COHS HAVE 

C BEEN CALCULATED 

C IF KEY=1 THEN ASSIGN THE AMOUNT ISPACE TO JOB INOXJ FROM 
CBLOCK 
C INDXQ 

C IF KEY THEN ASSIGN ALL JOBS IN ISAVE MEMORY FROM ASSOC 
CIATEO 
C BLOCKS 

C0HM0N/BLK7/J( 27,64) 

CCMM0N/BLK8/ ICLK 
INTEGER*2 ICLK 

CCMMQN/6LK12/ICECSZ,IC0N,INI, IFECSZ, IPCT, IPl, IP2fIQlf I 
CQ2,I03, IR, ISf ITA,MINBLK,MMCT,MMST,MTOTAL,NI ,NIOS, 

CNMODS,NPCL,NPCS. NCPUS » I FEDBK , I RNl , I RN2 , I RN3* IR 

CN4, IRN5, IRN6, IRN7, IRN8, IRN9, MMAPF.MMSPF 

C 

COMMON/6LK13/ RANAl 

CCMMON/BLK16/I0WCTR<24) ,ICEC(5,40) , ICECS , ICPU ( 10 ) p IPAS 
CS(20)p IFECS,IFEC(40,4),lPR0Sa6) ,lSAVE(3,3)f IVAL 

CCV(lO),MALC(256f 5), MALCS ,MAS ( 24) , MAVL ( 120 t 5 ) p MAVL 

CSpM00NM(24) ,MTPU24) ,NA(24) , NAA < 24 ) , NAB, NAGpNA 

CML(43) pNBLK( 128) ,NFB(3) pNJWHpNSCHEDp NREQI4 

C0,24) ,NTP(24),NTRI24),NUCA(24) 

'^INTEG6R*2 I6WC TRp ICEC , ICECS, ICPU, 1 PASS, I FECSp IFECp IPRO 
CS, ISAVE, IVALOV,MALC,MALCSpHAS,MAVL,MAVLS, MOO 

CNM,MrPl,NA,NAA,NA6, NAGpNAML , N6LK , NFB , NJWM, NSCHED, 

CNREO,NTP,NTR,NUCA 
INTEGER*2 J,JOVFL 
CALL UNMIXt 1,0, ISp IWRTA) 

MQCSlZ=MTOTAL/NMODS 
IFIKEV-1) 5,2,5 
2 J08=1NDXJ 

IBLKN=IN0X8 
MMS=ISPACE 
KEMPT=l 
GO TO 40 
5 l = l 

KEMPT=l 

1. 1F( ISAVE( I ,1) > 25,15,25 

15 WRIT£16,20) 

21 FORMAT! 31H ALL ASSIGNMENTS HAVE BEEN MADE) 

GG TO 300 
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25 JQ8=ISAVEUfl) 

IBLKNi=I SAVE( 1,2) 

J22=J(22,J0B) 

CALL UNMIX(7,6, J22,IN07) 

IF( IND7) 30,35,30 
IVALUV(1)=0 

CALL OVFLMGC 1, JC8,7, rVALOV,!) 

M^S=lVALOV(l) 

GO TO 40 

35 JU = J(17,J0B) 

CALL UNMIX( 11,0,J17,NMS) 

4j IF(KEMPT-255) 55,55,45 

A5 wR!Tt(6,5C) 

5v: F0RMAT(29H NO MORE EMPTY BLOCKS IN MALC) 

GO TO 300 

55 IF{^ ALC(KEMPT,5) ) 60,65,60 

6. KEM{>T=KEMPT+1 

GO TO 40 
65 K0CC1=0 

K,OC(. = MALCS 

7j IF(KaCC) 75,75,130 

C TO HERF IF NEW BLOCK GOES AT END OF MALC CHAIN 
75 IF(KQCCl) 85,85,80 

C TO HER'" IF MALC CHAIN WAS NOT EMPTY 
«: MALUK0CC1,1)=KEMPT 

MALUKEMPT,2)=K0CC1 
GO TfJ 90 

C TO HERE IF MALC CHAIN WAS EMPTY 
85 MALCS=KEMPT 

MALUKEMPT ,2 )=-l 

9: mal(;(kempt,i>=-i 

GO Ti.j 135 

i:- IF( ALC(KOCC,3)-MAVUII3LKN,3») 105,105,110 
L’:5 KCCC1=K0CC 

K{lCf. = MALC( KOCC, 1) 

GO TO 70 

5U IF(KOCCl) 120,115,120 

C ALLUCATEC BLOCK WITH INDEX KOCC IS PRESENTLY AT HEAD CF M 
CALC CHAIN 

115 MALC(KEMPT,2)=-1 

■'^ALCS=KEMPT 
GC TC 125 

C Ntw FLOCK GOES BETWEEN BLOCKS WITH INDEXES KOCCl AND KOCC 
12. MALC(KEMPT,2)=KGCC1 

MAL(^(K0CCI,1)=KEMPT 
125 MALCIKEMPT , 1 )=KOCC 
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135 
C TO 
CEL. 
140 
145 

153 

155 

16 C 

165 


170 

175 

18C 


200 

2?5 

21C 


215 

220 

225 

23 


MALC{K0CC,2)*KE«PT 

IF(MAVL( IBLKN,5)-MMS) 140, 140 t 210 

HERE IF ALL OF BLOCK WITH INDEX IBLKN IS TO BE ALLOCAT 

IF(MAVL( IBLKN,2>) 145,145,153 
MAVLS-HAVL( IBLKN, 1) 

GO TO 155 

MAVL(MAVL( IBLKN, 2) , 1 ) =FAVL (I BLKN, 1 ) 

IFIMAVLI IBLKN, l)+l) 160,165,160 
MAVL(MAVL( IBLKN,1J ,2)-MAVL(IBLKN,2) 

MALC(KEHPT,3)=MAVL( I6LKN,3» 

MALC(KEMPT,4)=MAVL( IBLKN,1 ) 

MALC(K6MPT,5)=MAVL( IBLKN,5) 

IPASS(10I=IPASS(I0)-MAVL( IBLKN,5) 

K0=K0CC1 

IFIKO) 200,200,175 
IF(MALC(K0,4)-IBLKN) 200,180,200 
MALC(K0,4) *MAVL(1BLKN, 1) 

KO=MALC fK0,2 ) 

GO TO 170 

NFB( I ) = NFB( U-l 

DO 205 IX=1,5 

MAVL(IBLKN,IX)=0 

CONTINUE 

GO TO 310 

MALC (KEMPT,3)*MAVLUeLKN,3)<-MAVL( I8LKN,5)-MHS 
MAVL( IBLKN, 51 =HAVL( IBLKN,5)-NHS 
MALC ( KEMPT, 4 )=MAVL( IBLKN,!) 

MALC(KEMPT,5)=MMS 
MAVL( IBLKN, 4)=KEMPT 
NAB-NAB-H 

IPASS110)=1PASS( IG)-MMS 
GO TO 310 
IVALOVI l)=K£MPT 
J1=J(1,J0B) 

CALL UNM1X(15,7,J1,I8K) 

IF<IBK) 225,220,225 
CALL PACK( 7, Jl,KEMPT,255) 

J(I,JOB)=Jl 
GO TO 270 
Jiy = ja9,J0B) 

CALL UNMIX(8,0, J19, IBK) 

IF(IRK) 235,230,235 

CALL PACK(0,J19, KEMPT, 255) 

J( 19,J0B)=J19 
GO TO 270 
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235 J17=J{ 17,JD0) 

CALL UNMIX(15,ll,Jl7vIBKU) 

CALL UNMIX(12» 8,J19, IBKU 
IBK= IBKL 

CALL PACK(4,IBK,IBKU,15) 

IFMBK) 2^5,240,245 
24C call PACK<7, J17,K£MPT,240) 

J( 17, J08)=J17 

CALL PACK ( a, J19, KEMPT, 15) 

J( 19, J0B)=J19 
bC TO 270 

245 J22=J(22, JOB) 

CALL UNMIX(8,7, J22,IND8) 

IF(1ND8) 260,25C,260 
250 CALL PACK{0,J22. 128, 128) 

J( 22, JOB)=J22 

26. CALL OVFLMGI 2,J08,8, IVALOVtl) 

?7j J27=J(27, JOB) 

CALL PACK( 5, J27,0,16) 

J(27,J08)=J27 

IF( IW4TA.EQ.0) GO TO 280 

WRITE (6, 1500) ICLK, JOB, KEMPT, MALC( KEMPT, 3) ,MALC( KEMPT, 
05) 

15. C FORMAT!' M ASGN , T 1 ME , JOB , MALC6LK , ST , LG, • , 5 ( 2X , 1 5 ) ) 

28. IF(KEY) 285,285,300 
2S5 I = H-1 

GO TO 10 
32. RETURN) 

31 , MncST = ( MALC( KEMPT, 3) +MALC( KEMPT, 5) -MMS ) /HODS 1 Z«-l 

MODED = «MALC(KFMPT,3)>KALC(KEMPT,5)-l)/MOOSIZ*-l 
J11=J{11, JOB) 

CALL UNMIX! 10,0, J11,MNAR) 

IF! MOOED-MOOST-1) 330,325,315 
315 IST=M0DST+1 
IEL,=MCDeO-*i 
kkx=IST 

DO 32C KKX=I ST, lED 
NA I KKX ) =NA I KKX ) +1 
MA3(KKX)=MAS!KKX)-M0DSU 
IRWCTR!KKX)=1 
320 CONTINUE 

32 5 MFOAMT=MALC! KEMPT, 3) <-MALC!KEMPT,5)-!M0DE0-l )#MODSIZ 

NA(M0CE0)=NA(M0CED)+1 

MAS! MOOED) =MAS! M0DE0)-N'5DAMT 

•JAA ( mpdED ) =MAXO !C ,NA A! MODED)-! MEDAMT*MNAR ) /MMS ) 

IR'aCTR! M00E0)-=1 



33w IF(MALC(KEMPT,3)+MALC(KEMPT»5)-MOOST#MOOSIZ) 3«0t335*3 
C35 

335 MSTAMTs=MOOST*«ODSI2-MALC(KeMPT,3) 

GG TO 3<»5 

MSTAMT = MALC(KEMPT,5) 

3A5 NA<MOOSTI=NA(MODST)-H 

MAS(MODST) =MAS(MOOSTI-MSTAMT 

NAA{MOOST)-MAXOtO,NAA(MOOST)-(MSTAMT*MNAR) /PMS) 

IBWCTR( MOOST)=1 
GO TO 215 
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SUflROUTINe MEMRLSf JOB* JBLK) 

C MEMRLS RELEASES THE BLOCK NO 'JBLK* FROM JOB *JOB». 
C0MMQN/BLK7/Jf 27,64) 

C0MM0N/BLK12/ICECSZ, ICCN,IN1,IFECSZ,IPCT,IP1, IP2,I01»I 
C02* IU3, IR, IS, ita,minblk,mmct,mmst,htotal»ni,nios, 
CNMOOS,NPCL,NPCS, NCPUS , I FEDBK , I RNl , IRN2,IRN3,IR 

CN4, IRN5, IRN6, IRN7, IRN8,IRN9, MMAPF,MMSPF 

C 

COMMGN/6LK13/ RANAI 

C0MMnN/BLKl6/IBWCTR(24) ,ICEC(5,40> t ICECSfICPUdO), IPAS 
CS(2C), IFECS,IFEC<40,4),IPR0S(16), ISAVE(3,3),IVAL 

COV { 10 ),MALC( 256,5) , MALCS, MAS( 24 ) , MA VL ( 128 , 5 ) , MAVL 

CS,M00NM(24) ,MTP1(24) ,NA(24), NAA{ 24 ) ,NAB,NAG,NA 

CML(4D) ,NBLK( 128) ,NFBt3) ,NJWM, NSCHEO, NREQI4 

C0,24) ,NTP< 24) ,NTR(24) ,NUCA(24) 

C 

INTEGER*2 I BWCTR , I CSC , ICECS, ICPU, I PASS , I FECS, I FECt IPRO 
CS, ISAVe, IVALOV,MALC,MALCS,MAS,MAVL,MAVLS,MOD 

CNM,PTP1 ,NA,NAA,NAb, NAG , NAML , NBLK , NFB , NJWM, NSCHEO , 

CNREO,NTP,NTR,NUCA 
INTEGER*2 J.JOVFL 
CALL UNMIXI 1 ,0, IS, IWRTA) 

MODSIZ=MTOTAL/NMODS 
N0DST=MALC (JBLK,3)/M0DSIZ>1 

M0DtD = (MALCUBLK,3) + MALC( J8LK,5)-l )/M0DSI2 + l 
Jll=J(ll, JOB) 

CALL UNMIX(10,0,Jll,MNAR) 

MMS=MALC( JBLK,5) 
lFIMOCED-MOOST-1) 6,4,2 

2 IST=MODST+l 
IED=MODED-l 

00 3 KKX=IST,IED 
NA(KKX) =NA(KKX)-1 
MAS< KKX )=MOOSIZ 
NAA(KKX)=ICON/MMCT 
IBWCTR(KKX)=1 

3 CONTINUE 

A NA(NOCEO)=NA(MOOED)-l 

M£UAMT==MALC( J8LK,3)+KALC( JBLK,5)-(M00eD-U ♦MOOSU 
MAS(MQOeO) =MAS(MOOEO)+MEDAMT 

NAA(MOOED) =MINO{ ICON/MMCT,NAAI MODEDI+I MNAR*MEOAMT) /MMS 
C) 

1BWCTR(«OOEO)=1 

6 KTEMP=MALC( JBLK,5) 

MsTAMT=MINO(KTEMP,MODST*MOOSIZ-MALC( JBLK,3 ) ) 
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Iv 

15 

20 


23 

25 


27 

10 

12 

33 

15 

AO 

AA 

A5 


A7 

A8 

50 

7- 

75 


MAS(MODST)=MASIMOOST)+WSTAMT 

NA(MOOST)=NAtMOOSTI+l 

NAA(MOOST)=MINO( ICON/MMCT, NAA( HODST ) ♦( MNAR*MSTAMT ) /MHS 
C) 

IBWCTR(MODST)=l 

«l=0 

M=MAVLS 

IF(M) 15,15,70 
IF{WAVLS> 20,20,90 
f^AVLC l,U=-l 
MAVL(l,2)=-l 
MAVt(l,3)=MALC( JBLK,3» 

MAVL( I, A)=MALC ( JBLK,H 
MAVL< l,5)sMALCt JBLK,5» 

WAVLS=1 

NENT=1 

I2=MAtC( JBLK,2> 

IF(I2) 27,27,25 
MALC(I2,4)=1 
I2=MALC< 12,2) 

GO TO 23 
I2=MALCt JBLK,2) 

IF(I2) 32,32,33 
MALCS=MALC( J6LK,l) 

GO TO 35 

MALC( 12, 1 J =MALC < JBLK, I ) 

I2=HALC( JBLK,1 ) 

IFI 12) AA,AA,AO 
MALCn2,2)=MALCUBLK,2) 

NFB( U = NFB ( l) + l 
NAB=NAB-l 

IPASS( 10) = IPASS( l'))+)<ALC( JBLK,5) 

IF( IWRTA.EO.O) GO TO A8 

WRITE(6, A7J JOB ,JBLK,MALC( JBLK,3) ,MALC( JBLK, 5) ,NENT,MA 
CVL(NENT,3), MAVL(NENT,5) 

C 

FORMATJ • MEMRLS— JnB,ALCBLK,STRT,LG. ,AVLBLK,STRT,LG, 
C7( iX, lA) ) 

00 53 1=1,5 
MALCt JBLK, n =0 
CONTINUE 
GO TO 5C0 

IF(MAVL(M,1)-MALC( JBLK,3) ) 75,75,80 
M1 = M 

|M = MAVL(M, 1 ) 

GO TO 10 
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80 IF<MALC< JBLK,3)+MALC< JBLK,5)-MAVUM,3» >90,85,90 
85 ICASE=1 
NENT=M 
GO TO 95 
90 ICASe^O 

95 IF(M.LE.O) GO TO 100 

IF(MAVL(M,2) ) 220,220,100 
ICO if(mi.le.o) go to llO 

IF<MAVLi«l,3>+MAVUMl,5I-MALC( JBLK,3>) 110,105,110 
105 ICASE=ICASE*2 
NENT=Ml 

no IF(ICASe-3> 170,115,170 
115 MAVL(Ml,l)=MAVUM,ll 

MAVL(MI,5)=MAVL(M1,5)+MALC( JBLK,5>+MAVUM,5) 
MAVL(M1,4)=MALC{JBLK,1) 

IF(MAVL(M,1) •GT.O) MAVUMAVL<M,U,2)=M1 
DC 120 JX=1,5 
120 MAVL(M,JX)=0 
135 NFB( I )=NFB( 11-1 

GO TO 1751 

17C IFnCASe-2)220, 175,220 

175 MAVL(«1,4)=MALC( JBLK,1) 

MAVU Ml,5) =MAVL(Ml ,5)+MALC( JBLK,5) 

1751 IF(MALC( J6LK,2) > 176,176,177 

176 MALCS=MALC(J8LK,1> 

GC TO 178 

177 WALC(MALC( J8LK,2) , 1 ) =MALC ( J8LK, I ) 

178 IF4MALC(J8LK,1).GT.0) MALC ( MALC ( JBLK, I ) , 2 > =MALC ( JBLK , 2 
0 ) 

GC TO 45 

ZZC IF(ICASE) 290,290,225 

225 MAVL(M,3)=MALC( JBLK,3) 

MAVL (M,5) =MAVL( M,5 )+MALC( J8LK,5) 

IF(MAVL(M,2>) 232,232,227 
227 IF(WAVL(MAVL(M,2> ,4)-J6LK> 232,230,232 
230 HAVL (NAVL(M,2) , 4 ) =MALC ( JBLK , I ) 

232 GO TO 1751 

290 IQ=1 

295 IF(MAVLIIQ,5> >300,320.300 
30C IG=IQ+L 

IF(IQ-128) 295,295,305 
305 i<ftITE(6,3lO> JBLK, JOB 

3lw F0ftMAT(47H MEMRLS FOUND NO EMPTIES IN MAVL WHEN RELEAS 
CING ,17, 4HFR0M,I7) 

C 

GO TO 500 
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32C NENT*IO 

IF(MALC( JBLK,l).GT.O) MALC < MALC ( JSLK , 1 ) ♦ 2 ) =MALC C JBLK, 2 
C) 

IFIMALCI JBLK*2) I 325*325t330 
325 HALCS=MALC( JBLKtll 
GO TO 335 

330 HALC(HALC( J8CK,2» tll=HALC( JBLKtl) 

335 IF(Ml) 364f364t362 
362 WAVUMl, 11=10 
MAVL( IQ,2>=M1 
GO TO 365 

36A MAVL( I0*2)=-l 
MAVLS=IQ 

365 IF(M.GT.O) MAVLCH,2)=IQ 
MAVU IQ, n =M 
MAVL(I0,3)=MALC(JBLK,3) 

MAVLl IO,A)=MALCf JBLK,X) 

MAVU I0,5)=MALC( JBLK,5) 

K=MALC( J8LK,2) 

38C IF(K> AA,AA,385 
385 IFIMALC{K,4>-M) 44,39C,A4 
390 MALC(K,4)=IQ 
K=MALC(K,2I 
GC TO 380 
5CC RETURN 
END 
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SUP ROUTINE OVFLMG(KEY»JOB, IFLD, IVAL*NNT) 

C OVFLMG HANDLES OVEPFLOW FROM VARIOUS FIELDS OF THE J-TABL 
CP 

C KEY - 1 indicates kETRIEVE, THE FIRST IVAL(l) VALUES 
C FUR J>B'S FIELD IFLD ARE SKIPPED AND RETRIEVAL BEGINS 
C AFTER THIS AND CONTINUES FOR THE NEXT NNT VALUES OR UNTIL 
C TH:- VALUES UNDER IFLD ARE EXAUSTED WHICHEVER COMES FIRST 
C KEY = ? INDICATES PLACE. THE FIRST NNT VALUES IN 
C IVAUl THRU MNT) ARE PLACED IN JOB'S OVERFLOW AREA 
C UNDER IFLD. 

C KEY = 3 INDICATES REMOVE. THE FIRST IVAL(l) VALUES 
C U4')EP. JOB'S IFLD FIELD ARE SKIPPED AND REMOVAL 
C BEGIN:. AFTER THIS AND CONTINUES FOR THE NEXT NNT 
C VALUE'' OR UNTIL THt; VALUES UNDER IFLD ARE EXAUSTED 
C WHICHEVER CO^'ES FIRST. 

CC-'V0N/BLK7/J( 27,64) 

CC"' N0N/BLKG/J0VFU 32, 32 ) 
ul' INS ION IVAL(1>) 
lNUr.tR«2 J,HFIX,J0VFL 
GO TO ( l-,2^',5 ••■) ,KEY 
C TO ME‘- = FOR RETRIEVAL OF NNT VALUES 

1. NSf IP=IVAL( I ) 

lV\L(i)=.. 

K = 

JAI.D=J(24, J'OB) 

13 iF(JAPn) 7:, TOjIC 

? NP' TB= - 

IP ;T=l 

23 n Gr' = JOVFL ( JADD, IPNT) 

CALL UN, Ml XI 15,1 -,IFHC,LFLD) 

I F ( LFLD-IFLD) 3 ,4,3 
3 sP'iTh^IPNT 

call UNMIX(10,5,IFHD,IPNT) 

IF(I^>NT) 'V5,35,25 
33 JA,,D = JOVFL ( JAOn,i>2 ) 

,C TO 15 

4, CAl.L UNMI X ( 5 , 1, IFHD,NEn'TRY) 

I = 

I-I + i 

IF(I-NENTPY) 5'',5.,3. 

5 I F ( i ■> K I P ) 6 , 6 ' ,35 

',SK 3SKI P-1 

:r TG 4 3 

6 K 

!F(K-;NT) 65,63,7' 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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6> IViL(K)=jnVFL( JADDtlPNT+I) 

IF(K.CE.NMT) GO TO 70 
';c TC 4b 
7 ' SETURis 

C TU FOa PLACING THE VALUES FFCf’ IVAL(l THRU NNTJ 

r .. . K = i . 

LASTL^=v 

JAcHsJI 24, JOB) 

? S IFIJACDJ ,29'-,2:-V 

21 IP>’T = 1 

2L2 IFHr=JUVFL(JADC,IPNT) 

CALL UL'HIX I 19, 10, IFHC,LFLP) 

CALL UiJ^^IX ( L'‘,5 , IFHD,NPNTF ) 

CALL UNmXCS, '. , 1FHD,N ENTRY) 

IL(LFLt;-IFLD) 2 15, 3 5,, 21 5 
219 IF(NPNTF) 225, 225, 22 ? 

't!>:'iT ^. = 1 PNT 
l;>\f^NPlTF 

on 212 
2^5 <TF = .-52 

K ( I ;>NT + NEnTRV + 6-3 1 ) 225,23:»?3'. 

Jl,. LAS:'^ = JACO 

jAl:\}-jnVFLlJACn,32) 

..0 T'i 2 

> -jTi,; =I PNT 

I 7 . T= IPNT4-NcNTRY+2 
1 F'JLL=jnVFL( JADf;, NPnTB) 

CALL P-VCKI 5, IFULL, IPN'T,31 ) 

Jf WFL ( JA1.!.>,:JPNTB) = IFULL 

JLVFL(JA(;D,IPNT) = IFLD--?1 .24 

■' 1 = 

/ 5 1 = 1 + 1 

IF ( I P:a+ I- JPNTF ) 26 15:.,259 

'bi I F ( '^(’^,TF''32 ) 22‘. , 23 ■■■ ,22 ■ 

) vri.(j:\Oi),lp:!T+I) = IVAL(K) 

JOVrU JADl ,1 PNT)=jnvrLlJAL.tj, IP“-'T)+1 

t. - :> + I 

1 r ( — ’! 'i 't' ) 2 2 C , 2 2 1 . , C P - 

:o . j.xo:- 

IF( J n;i -32) 31^,31,3.:.' 

, 1 r: ( F, 3' 5) K , N -'T , I FLO , JOB 

5 .. FfrMMI' ’VFL'IG RAN CUT OF K^C^’ WH_N TRYING TO PLACES 

./, * VALur \n.',i4,' F-^n’-' a total ofsia,* va 

,^LU' ’ INTO F I'^LP' , 14, ' FOR J0BSI4 

E. » 


Pagp tq 
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KLJURN 

31; iFfjrjvFUJADn,!) ) 295,315,295 
315 IFn.iSTB) 32t,3?',317 
^17 JOVFL(LA5TR,32>=JADO 
GF ’■J 325 

32 J( ' JOfl)=JADD 

IFULL=J ( 2? , JOB) 

CALL PACK( 3, IFULL, IFLO, IFLO) 

J ( 2 JOB) =I PULL 
325 IP "=l 

rU>'l'F = 32 
GC ri 2^3 

C FJUjD FILLD WITH IFLO 

35. IF ( ,^'>ITF ) 36‘?,36 ',355 

353 IF ( I ^NT + NEAlTRY+i-N^’ivlTF) 245,220,220 

36. IF n PNT + '|F''JTRY-31> 23o,365,365 
36 5 WP.H-S32 

CU ’'0 245 

3^'. IFIM.L = J( 2.2, JOB) 

CALI PACKC: , IFULL, IFLO, IFLD) 

Jf JOB) = lFULL 

C T T ' 

C TO rE-' FOK REMOVAL OF THE FIRST i\NT ENTRIES AFTER IVALIl 
C > 

5. L<-(LF:i = 

JAi i:sj( 24, JOB ) 

K = : 

I SF 1 ->=1 VAL I i) 

5 5 IF( JAOI' ) 51.:. ,51 ,520 

51 KK-4-1 

V'R I r- I 6, 51 5) KK,N )T, 1 FLO, JOB 
513 F|- -'ATI' nVFLMG CA'i FIM) ONLY', 14,* OF THE ',14,/, 

„ • VALUES FROM FIELD', 14,' OF J0 B',l 4 ) 


5 2 . .iP ; r.i = 

52-5 irt- =J’Wf L( JACn,IPr!T) 

call U-.'MIX( 15,1. , IFHD,LFLL) 
I F ( LFLf.'-IFLu) 53 ',54v ,53 ‘ 

S:’ ,R\Ti = IPNT 

Call , IFHD, IFNT ) 

if(I-.’-.T) 5 " 5, 5 3 5, 525 
5 35 LA'-. TB^JADC 

J.A' -JOVFLt JAOC, 52) 


-®AGE Iti 

Q'UALnY 
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5^:.. CALL UNMIX(5,C» IFHD»NeNTkY) 

IF( ISKIP) 56Qt560»545 
5^5 IF( ISKIP-NENTRYI 555»55:»550 
55j ISK1P=ISKIP-NENTRY 
GO TO 5 3';« 

555 I-NENTPY-ISKIP 
l^l*l 
ISKIP=D 
CC TO 565 
56' l=: 

L = i 

565 I=l+i 

IF(I~NLNTRY) 58C.58‘<,57C 
57, IF(L-l) 53:*«575,537 
575 ITFMP=IPNT 
GO TO 6L j 

58” JuVFL(JAOC,IPNT>*-I)=0 

JfjVFUJAOD, IPNT) = JOVFU JAUUt IPMT)-1 
K=K+1 

IF(K-NMT) 565,565f585 
565 IF(I-NfNTRY) 590f 575,570 
59 > 1 = 1+1 

IF< I-\'eMTRY} 595,595,695 
503 JOYFL(JACO,IPNT + U=JOVFL( JAOD, IP:'lT+n 

JOVFU JADO,IPNT+I ) = '' 

L = L + 1 

r.G TO 59:- 

^ . CALL UNM1X{10,5,IFH0,NPNTF) 

IMNPNTF) 650,650,6r5 
C TO Hf.RC to keSTACK PEMAINDFR CF BLOCK 
6 5 lCIFF=NP.-4TF-IP\tT 
61. lFKL=J07FL(JAi)D,NPNTF) 

CALL U!-iMIX(5,C, IFHDfNEr^iTKY) 

JGVFL( JADO, I PNT )=jnVFL( JAOD,NPNTF) 

JMVFL( JAOn,NPfiTF» = : 

1= . 

615 1 = 1+1 

IFd-CENTRYJ 62,.,6?0,625 
(.2 JOVFL(JAOD,lPNT+n = JOVFU JADC,NPNTF+l) 

JCVFLl JAD'J,Np;MTF+n =.* 

GO TO t)15 

625 CALL U/OMIXMf ,5,1FHD,CPNTF) 
fnOP-JTF) 635,635,63 

62 JjVFLfJAfJO,IPIViT) = JOVFL(JADL),lpr'JT>-IOIFF«32 

IPN-r^NPNTF-IOlFF 
,.C TD 6l 
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bVj lP:jT=ITrf1P 

iF(K*NNT) 530, 5:2 Of 695 
65;. IF( 2PNTD) 660»660t655 
655 IFlJl.L=JnVFL( JADDiNP^'^TB) 

CALL PACKI 5, IFULL,*', 51) 

JOVFU JAOD,NPNTb)=sIFULL 
IFIK-nNT) 535,535»695 

c THh pk-sent block is destroyed 

66.! lTi“*P=JAOD 

1MLAST8) 67Cf670,665 

c relink Around present destroyed block 

66 j jrjVFLILASTUi 32 ) = JOVFL ( JAOD f 32 ) 

GO ro 680 

67.. IF( JUVFL(JAOD,3?)> 685,685,675 
C RESET JOB’S FIRST BLOCK POINTER IN J-TABLE 
675 J( 2iff JQB)=JOVFLl JADO,32) 

68. JAi;; = JOVFL (JAOD,. 32) 

JOVFL (I temp, 32 > = :■ 

JOVFL UTENIP, 1PNT)=': 

IF('<-jNT) 5J5,5 5,695 
C JOn'S OVERFLOW ARt\ IS DESTROYED 
665 JI^-,JOB)=2 

Jt.i.: , JOB) = 3 
JOVfH JADD, I PNT ) = :.' 

605 RETORT 
E--)i 
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t^9CG9A^ FOR SOLVING ACCESS CONFLICT EQUATION 


riyfc^SlON R(l&)»?(l5)rA(225) 

IOUSLl precision R,A,PfPIVIT.TCP,BCT,XtyfZ»ZZ,CMR 
LOUBLE PRECISION P7RG,PNU 
I R£AD(5,5) NSTEP 

f, FORMAT! IS) 

ICNT=: 

i: icnt=ic.nt4-: 

IFUCMT-NSTEP) 20»20»15 
Iv GO TO 2 \. 

1. R=AD(S,5) N 

WRITE (6,25) N 

>5 FO';>iAT(* THE NEXT SOLUTION IS FCR‘,13,* CONTENDING PRO 
CCSM 

z=',.c: 

26 Z=2+Y 

If ( M.cQ.2. ANO.Z.GT. I ./\) GO TO 13 
IF ( Z .GT.3. I/N) GU TO i: 

zz=i.:oo-z 

l< = 

i-' K = l<.+ 1 

IFIK.GE.N) GO TO 15C 
UjP = *MN:(!4-1,K+1) 

I=-l 

3T t=I+l 

IF! I .i,T.LU°) GO TO 

x=i..,oc 

niG = NlAX !\I-K-1,K+1-I)*1 
IL rL=^'r NGIN-K-l ,K + l-n 

7 n : ,.::rjr 

rtrr=i.:DL 

6 I F ( fGIG.GT .N-I) GU TO 5'. 

IF(T'ip.Gf:. 1.0012) GO TC 5* 
ri; ’ = ti;p*irig 

I iIG=lB IG + 1 
■;r TV. 4 V 

- I r ( ILTL .LE. 1 1 GC ro 55 

IFlnUT.GE. 1.2012) GU fU 55 
tsC r^5f:T«lLTL 
ILTL=ILTL-1 
■in r j 5 : 
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55 K=X’M TOP/BOT) 

TOP=l,ODO 

6CT=l.0D0 

IF( IHIG,LE.N-I ) GO TO AG 
IF( ILTL.0E.2) GO TO 50 
GO TO 70 

7; X=(X«ZZ«*(N-K-1) )>>Z>f'*(K + l-n 

75 IF ( I .GT,'t) GO TO BO 

PI VIT=X 
DU 76 JJ=ltK 
7t P(JJ)=-X 

OC TO 37 

8' pm=pm + x 

GO TO 37 
1.. ^ CH ^P(K) 

1 = 


1.5 

1 = 1+1 

IF( I .CT.N-1) on TD 1 10 
P( i )=P(I )/(l. .'0 -CMRI 
,C TO 1' 5 


11-. 

T(r |=-PIVIT/(1,CDG-C.VR) 
P (..)=- 1,00.:: 

1 = 


U5 

I = ! + i 

I r 1 I ,GT .N~ 1 ) GC TU 3: 

A(.+( i-i)«(N-i n=p( 1 ) 

:n TO 115 


■ S . 

It- = 

ko :: : r- 15 

CALL 5QLV-R(R, \,M,l,EPS,lt:R) 
,1 S'' i T L 1 6 , 1 6 ) !') , Z , 1 R 


16 . 

FC:-'AT(/* RETU='N FRON-' SOLVER 
X, m 

'),Z 

N,Z, 

17 

rr '•■AT(/‘ THE SOLUTIOiJ ARRAY 
S.5.,. IS'/) 

,-iK- I TE (£ , 175) (KU ) t 1 = 1 ,M) 

FOP 

17 0 

Fl- 2X,01h,5 ) ) 

SI. = . , 

;:C. 1C. I = 1,M 


U , 

sr = s'' + FLOAT! 1 )/FL'JAT i 0)’1^R I I) 

sp ,:osi.-sr 

ir_(t ,18 5 1 NtZ, SO.SPElD 


1 h5 

rr, ;.’A7(/' FOR = ',13,' AND 

Z = 


C-',/, • TC. CPiUTtMIOM IS • 

GSr - IS EXPECT':f>» »/t ' TO PRGC 


I rR AR E * t 2X t I 3 * 2X I F 5 • 


N =• , 13, • Af^O I = • ,F 


',r- 5 . 2 ,' SLOH nct^''J cu 

,F7.5,*. EACH PRCCfc'S 
:FD at ' ,F7.5, ’ NORM 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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1 


195 


C^iL 5PcE0. •//) 
p ODO 
uU l9-> 1 = 1 »M , 
pz?n=PZRO+R( n 
PZ:Rt,= 1.0 J-PZRO 
pf*U=| ZZ««N)«PZRO 
IT?(6, 1<?5) PNU 

FG?NAT(* EXPECTED BANDWIDTH NGNUTILIZATION * SD14.8) 

:iC TO Z6 
STl P 
EM 
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SUBROUTINE SOLVER(R»A.M»N*ePS» lERI 
OIPENSION Ain»R(U 

DOUBLE PRECISION R » A t P I V t TB »TOL »P I V I 
IE(f*> 23,23,1 

C SEARCH FOR GREATEST ELEMENT IN MATRIX A 

1 IER=0 
PIV=C.COO 

■ 

NM=N«M 
DO 3 L=1,MM 
T0=DA8S(A(U ) 

IF(TB-PIV) 3,3,2 

2 PIV=T0 
UL 

3 CONTINUE 
TOL=tPS*PIV 

C Ain IS PIVOT ELEMENT. PIV CONTAINS ABS VALUE OF A(U. 

C START ELIMINATION LOOP 
LST = 1 

DO 17 K*l,M 

C test on SINGULARITY 
IF(PIV) 23,23,4 

4 IF(IER» 7,5,7 

5 IF(PIV-TOL) 6,6,7 

6 I»R = K-1 

7 PIVI = IOOC/A( n 
J=(I-l»/M 
I=I“J*M-K 
J=J+l-K 

C I+K IS ROW INDEX, J4-K COLUMN-INDEX OF PIVOT ELEMENT 
C PIVOT ROW REDUCTION AND ROW INTERCHANGE IN RIGHT HAND SI 
CDE R 

DC B L*K,NM,M 
LL=L+I 

TB=PIVI*R( LL ) 

RiLL)=R(L) 

R(L)=T8 

IS ELIMINATION TERMINATED 
IFIK-M) 9,18,18 

COLUMN INTERCHANGE IN MATRIX A 
LEND=LST+M-K 
IFIJ) 12,12,10 
a ii=j«M 

CO ll L=LST,LENO 
TB = MLI 



401 


LL«U+II 

AlD^AaU 

11 A(LU=TB 

C RUM INTERCHANGE AND PIVOT ROW REDUCTION IN MATRIX A 

12 00 13 L=LST,MM,M 
LL-L+l 

TB=PlVI*A(Ltl 

A(LU*A(L) 

13 AIU*TB 

C SAVE COLUMN INTERCHANGE INFORMATION 
A(LST)=J 

C ELEMENT REDUCTION AND NEXT PIVOT SEARCH 
PIV=0*0D0 
LST=LST*l 
J=C 

CO 16 1I=LST,LEND 
PIVI=-A(II) 

IST=II+M 
J = J+1 

CO 15 L=1ST,MM,H 
LL=L-J 

A(L>=A(L)+PIVI*A(LL» 

TB=0A6S(A<U) 

IFITB-PIV) 15,15rl4 

14 P1V=TB 
I=L 

15 CONTINUE 

DO 16 L=K,NM,M 
LL=L+J 

16 R(LU=R(LL)+-PIVI*R<L) 

17 LST=LST+M 

C END OF ELIMINATION LOOP 
C BACK SUBSTITUTION AND BACK INTERCHANGE 

18 IF(M-l) 23,22fl9 

19 1ST=MM*M 
LST=M+1 

DO 21 I=2»M 

II=LST-I 

IST=IST-LST 

L=IST-H 

L=4{L)+.5D1 

DO 21 J=I I ,NM,M 

TB=R(J> 

LL=J 

CO 20 K=IST,MM*M 
LL=LL*1 
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20 T6*TB-AtK)*R(LU 
KaJ+L 

R< J»=R(K) 

21 KtK)=TB 

22 RETURN 

C 6KRCR RETURN 

23 IER=-1 
RETURN 
ENU 
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PROGRAM FQR DETERMINING SLOW DOWN ANP 
DANDWIDTH LTILIZATlOf, UNOEP LOCALIZED 
BAMDWIOTH LIMITATION AND MISMATCH 


DIMENSION 1 SLOWIAT. > , IUTL140) fBW( 16 I » IBWR(43I 

R5AP{5»IC) ^4RUNS,NSE£0 
i .. F!jRMAT( 2 ( 2 Xtll')n 

WRI7={6flO) NRUNStNSttD 

1 X=nSCED 

ra= ' 

t “• NR=NR + 1 

IF< JR.GT.MRUNSI GO TO 330 
•J=An(5t2'^> NPROS.NSA^PjW 
N?RD=NPRnS-l 

i'. EL^iv\T(2(2X, Il‘')»7X,F5.3) 

b ( I ) = ^ 

TOTAL = { FLOAT! ^IPROSI^'.S )«FLUAT(NPRD) 

1 = 1 

' I = U 1 

in I .OT .NPRUS) GO TO 35 

mk( n~! ( r-i)*w ) /total 

,C TO 3.. 

3 5 UN £ A N=G » V 

S»^.4N=0.:' 

' ' i r. A "4 = • » .r 
LGTC»;. A 
i.STn = *.o 
:<sTr='.j 
r;n 37 i = it4L 

I ! s , X ( I ) = ■ 

37 I LTL {!) = .. 

■fS = 

'V. vs^.-is + l 

I » ( iS.L' .'ISAMP) on T 2 7: 

LM-A A-'/NSAvp 

SM..A 4 = SM-.A 4/NSA^'P 
RP‘.AN= - m£AM/NSAM(> 

0 % rt • = SL 1 P T ( UST0/NSAMP-UMEA;4^*2 ) 

S '.;,.. = SOf<T( SSTL'/NSAMP-S'^fcA.')«*^ ) 

<STi' = ^i:j7 T ( XSTD/NSAMP-Af'iEAr!««7 ) 

I T “ (4 ) NPP.nS ,MSAMP , W,OMFAN»USTD, SMF AN» SOTD 

a: FCP £T ( / f » NPKCS f NSAPP , W ,UM£AN tLSTO, SME ANt SSTC AkE*»/, 

2(2X,I1 ) ,5(.1X,F7.5) ) 


OKIGINAL PAGE IS 
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C 

rt!UTj{6,46> RMEAN,RST0 

46 FCRMATl* RM£AN AND RSTC ARE » f 2 1 2X , F8 . 5 )) 
WRITE (6, 50) ISLCW 
5. FOKVAT(/,2>UX»I5)) 

WRITE (6, 50 lUTL 
WRITe(6t5-'‘ ) IBWR 
DC T'J 15 
7j i = : 

SWR= 

75 I=l+l 

IF( I .GT.NPROS) GO TO ICO 
CALL RANOUt IX,IY,RAN) 

IX = F Y 

lNr.:X=IFlX (RAN»'M'»RD+ . 5 ) + 1 
i j w R = B W R B W I I N D E X ) 

GO fn 73 

i:. IFlRWR.GT.l) GO TO 110 

BWU-BWR 
it LJ = 

GO TO 120 
11' bwli^l.o 

SLI o=UJWR-i. )/BWl 
12. I NL < G= I F I X ( SLDN* n . + . 5 ) + 1 

INC ^U=IFI X(6WU« 0. + .5 ) + l 

Ih.. '< i=inx (BWR*J-V./(NP3,0S>!^BW(NPR0S) ) + .5) + l 
ISLGv-il rNOXS) = ISLJW( INDXS) + 1 

luru iN(;xu) = iuTL( indxu) + i 

I-^rjXB)=IBWR< INOXB) + l 
UF.. \N = UO-AN+HriU 
USTv;=tJbT0 + BWU^«2 
SF :A'«i=l,RFA'l4-SLDN 
SST,.-^SSTD+5LrN«x=2 
kR uON=R'l^r^^^♦BWR 
!? ST:: = 0 . STu + BWR** .:. 

Gli TU 4 / 

' . st;> 

' Ni • 



SUo^OUTI.xlE RA^'IDU< IX, lYtYFL) 

I Y=I X«65539 

IF(IY) 5,6,6 

IY=IY+2i47A83647+l 

YFL=I Y 

YFL=YFL*. A6566l3fc-9 

■^,FTURi\i 

'ENL 
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(‘f^C .RAM FOR DtiTtRKINING SERVICE FOR PRIORITY 
COMFLICT RESOLUTION SCHEME 


L)l^ : .iSION IP(16),IACRI(16I,NA£PI16> 

Lil'-' NSION PJ FF ( A •■) ,niFP{4* I »DI FB I A •) 

I\r PER DIFF,GIFP,PIFC 

GEA'M 5, 1 ■’) npun:,isefd 

FO ., \T(2( ?X,n ) ) 

iR^ ■ 

-JK- .K+1 

IF r R.GT.NPUNS) GC TC 2.f 

riEA; ( 1- I NPROSiOSTEPS 

w’ n ■: ( f-. t 2 ) NS'Tf , NPRCS 1 1 SEED 

Ffi^ AT(//f* the NEXT STEPS IS FOR *,13,» PRCCES 

r/t ’ U>:EO = 

L 

wRIT"((. »?2) 

FOk'ATI* LBFL Ll-2 RATIO OF TP TC PL TP(1 THRU NPRO 
c : ) * ) 

>f;S-l , 

10 .5 1=1, a: 
lH F ( 1) = . 

[, I F > ■ ( U = ' 

i R >F = ■ 

I" . 

I-- ■. -.11= . 

F y . A N = ■ , . 

* ^ ^ = . • „■ 
y.y . \ 

• J-, ■ UrJGINAL PAGE IG 

Ii>= ! . OF POOR quality; 

Cl T. = . 

HS= 'S+l 

fF( .s.'jT.nstfps) '■.'■i rr. is 
v.C A I = l,'lPROS 
C ',L L KA'JCU ( 1 SEE , I X , RA ') ) 

I v' = I X 
RA .’( I) = 

IP( I )=IFIX(RA.J^1' -Stl+l 

Lv - I=i,MPR'"S 

vv j = i,“;PR.is 
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4 

4 5 


^ ( 
7 , 


IF( IPU ) .r>E. I P(jn GC TO -tO 
ITEMP=IP{I) 

I p n ) = I p ( j ) 

PM J>=ITEMP 

cc’jriNUE 

iJO 45 I=l,NPPOS 

MCRUI ) = IP(I> 

irLA> • 

1 ‘UG^l 
J J-JJ<-1 




J = J+ I 


IM J.GT. MPP'jS) go to 6 . 

IM I ;CK1U ) .LE. lACPl ( IBIG) ) GO TO 55 
IE1G=J 
or th 55 
I AC U ( 1=5 [G ) = . 

V A E 'M i E I G ) =04 6 fM I Q I G ) ■»• 1 
6;. 6 5 !=l,\r>miS 


I Ai! r i I n = i ACi^i ( I H-i p ( 1) 

If ( l!Uf.."’E.NP405;) GO TO 5’ 

IF( rFLAG*fcO. 1 ) GG TO 67 

! ■ i- p - J J OPJGINAL PAGE iS 

\ OF POOR QUAUTli 

■.. 0 T ,. 5 ' 

ISU- = 

lC I ’ 1 = 1, >ipr:i5 

lSl!r-^lGU.-'+IP( I ) 

rtsijx=i su?^/i M>p=os) 


ir-UT- {6r6. ) LbLPt JJ» IKSUO, ( IPt I I » I=lt’'lPPnS) 


Fr ',;-'|.\T( iP( IX, I 5 n 


: ■<^T-=FLOAT t ^.AEFM 1 ) ’I' I P { ^P•■>,OS )) / FLOATS I P ( I ) ( 'JP^OS ) 


. ) 

=r \ t- ib,»2) (iOAtP ( I ) , I =l,rjPKOS > 
K'^-‘Ar(* NO. ACCES BY' PROG ' , H. ( 1X» I 5) ) 
i RIF'. (0,33) BRATE 
FC 0’AT( • + ’ ,113X,F7.4) 

' A:\ = B^‘-AN+HRATE 


bSro^F,'' TO+i 3 KAT 3<^*2 

FF=FL:'AT(LBLP-IFS0V) / float ( 1PGUM) + .5 
. F = A f + [ ■ F ^ 2 
F '- : an-F' 1 “An+ff 
IN- •:x = l F I X { FF'-!=4„ . ♦ .qqCG-R ) 
iF( I lorx.GT. a;,d. iNi.'t \'.l = .4 :') go to as 
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iK-^ ;F = ikMGr-+i 
or TO 9 :' 

L n-t { INDEX) =Di FF- ( iNnex) + i 
FF-PLnAT(JJ-IRS ) / F L OA T ( I R SD/^ ) + . 5 
iO + FF*’!=2 
PK- A!-\j = PMFAN+FF 
r:t-X=: IF IX(FF*4 . . 9^999) 

IFdNDHX.GT.r .A O. INDEX. LE.4"') CO TO 95 
IR- .,‘’=IRNGP+1 
or ro i":* 

t I F- ( I NDF X ) =L" I F 'd 1 DOt X ) + 1 
rii X = IFTX(BRATd'2. ' + .99909) 

IF( nf FX.CT. . .A .■;.INnEX.LF.4‘) GO TO K'5 

10 ;b = irngg+1 

',c r 'F ‘ 

Jlr >(IMC-:x ) =riF;M index ) + l 
.^n ^Tj >: 

rt ■ 1 (4, l.'^3) IR .(.F,DIF F 

FT- 'ATF / ,?!( IX, ) 

V!'1T.(6, I'^'G) IR oOPjDIFP 
il = (6 , 155) IR"ivOB,!>lF,j 
pv., .i\ = F>’f A s/NST PS 
Rv PM=^r>v F A'l/o;ST - PS 
'.W ■ 4/NST i-’S 
Ff Tn -SOP, r ( AF/:jS:EPS-F''-:AN=1'<!2 ) 

p'’ .=s:.rti a.v-.st- ps-piv-:an^?^2 ) 

-ST ■ = S-,iR r ( BST ■'/ ■STE'^S-yFEA ) 

I T : (;• , 16',) NP ,nS,FW- AFijFSTD 

-FlP'ATI/’ Fur!’,i:>»' P-<uSt FVEAND.R.T. 3U'‘‘ I P II ) ) / P IL ) 
Oi'L ' , ' FSTp AP-S2(2X,Fa.5) ) 

WRIT F(;b ,17) mP ■- OS ,»'^iAN,F5TD 

F^ - \H • Fipi.I',* PPf.S, PMC AN W.R.T. SiJ.V( P(I ) )/P( L) A 
C '.r;*, • P.,TO at;;* ,2(?X,F.8.5) ) 

N-, ) T ' ( A T I 7 5 ) v'l.S Ar.jBSTO 

-AH* F.jpi.i^,' PODS', ‘^AN AND STAInDAPO LEVIATICN 0 
> 'XVICE TQHIOr-.r;sT P? I DR 1 T Y ' , / , ’ TELATIV^; TC LHwE 

•'.ST •> ’ lOklTY JOB AA-*, , J(2X,FS.5)| 

.!■ » 19 

-i T ., P 


is 

QlJALnx 



